(devanagari-range): Renamed from `range'. All calls changed.

[bpt/emacs.git] / lisp / language / lao.el

diff --git a/lisp/language/lao.el b/lisp/language/lao.el
index 4bf542c..d4c54d0 100644 (file)
--- a/lisp/language/lao.el
+++ b/lisp/language/lao.el
@@ -1,7 +1,8 @@
-;;; 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.
+;; Copyright (C) 2001 Free Software Foundation, Inc.
 
 ;; Keywords: multilingual, Lao
 
@@ -22,44 +23,46 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; 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")))
+ 'lao 2 ?L
+ "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)"
+ '(ascii lao nil nil
+   nil nil)
+ '((safe-charsets ascii lao)
+   (post-read-conversion . lao-post-read-conversion)))
 
 (set-language-info-alist
- "Lao" '((setup-function . setup-lao-environment)
-        (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")
+ "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$,1D;\e(B t)
 (aset use-default-ascent ?\e(1=\e(B t)
+(aset use-default-ascent ?\e$,1D=\e(B t)
 (aset use-default-ascent ?\e(1?\e(B t)
+(aset use-default-ascent ?\e$,1D?\e(B t)
 (aset use-default-ascent ?\e(1B\e(B t)
+(aset use-default-ascent ?\e$,1DB\e(B t)
+(aset ignore-relative-composition ?\e(1\\e(B t)
+(aset ignore-relative-composition ?\e$,1D\\e(B t)
+
+;; Register a function to compose Lao characters.
+(let ((patterns '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?"
+        . lao-composition-function))))
+  (aset composition-function-table (make-char 'lao) patterns)
+  (dotimes (i (1+ (- #xeff #xe80)))
+    (aset composition-function-table (decode-char 'ucs (+ i #xe80)) patterns)))
+
+(provide 'lao)
 
 ;;; lao.el ends here