-;;; lao.el --- Support for Lao
+;;; lao.el --- Support for Lao -*- coding: iso-2022-7bit; -*-
-;; Copyright (C) 1997 Free Software Foundation, Inc.
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
+;; Licensed to the Free Software Foundation.
;; Keywords: multilingual, Lao
;;; Code:
(make-coding-system
- 'lao 2 ?T
- "Coding-system used for ASCII(MSB=0) & LAO(MSB=1)."
- '((ascii t) (lao t) nil nil
- nil ascii-eol))
-
-(register-input-method
- "Lao" '("quail-lao" quail-use-package "quail/lao"))
-
-(register-input-method
- "Lao" '("quail-lrt" quail-use-package "quail/lrt"))
-
-(defun setup-lao-environment ()
- "Setup multilingual environment (MULE) for Lao."
- (interactive)
- (setup-english-environment)
- (setq coding-category-iso-8-1 'lao)
-
- (set-coding-priority
- '(coding-category-iso-7
- coding-category-iso-8-1))
-
- (set-default buffer-file-coding-system 'iso-2022-7)
-
- (setq default-input-method '("Lao" . "quail-lao")))
-
-(defun describe-lao-support ()
- "Describe how Emacs supports Lao."
- (interactive)
- (describe-language-support-internal "Lao"))
+ 'lao 2 ?L
+ "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)"
+ '(ascii lao nil nil
+ nil nil)
+ '((safe-charsets ascii lao)))
(set-language-info-alist
- "Lao" '((setup-function . setup-lao-environment)
- (describe-function . describe-lao-support)
- (charset . (lao))
- (coding-system . (lao))
- (sample-text . "Lao(\e(1>RJRERG\e(B) \e(1JP:R-\e04U\e1\e(B, \e0\e(1"i\e1M-`\e0;Q\e19\e0$[\e19ERG\e(B")
- (documentation . nil)))
+ "Lao" '((charset lao)
+ (coding-system lao)
+ (coding-priority lao)
+ (input-method . "lao")
+ (nonascii-translation . lao)
+ (unibyte-display . lao)
+ (features lao-util)
+ (documentation . t)))
(aset use-default-ascent ?\e(1;\e(B t)
(aset use-default-ascent ?\e(1=\e(B t)
(aset use-default-ascent ?\e(1?\e(B t)
(aset use-default-ascent ?\e(1B\e(B t)
+(aset ignore-relative-composition ?\e(1\\e(B t)
;;; lao.el ends here