X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/650e8505e2bca55d1df1f88158d316f5079c40cb..987a34896f0f07c76a87314ee444467903632aeb:/lisp/language/lao.el

diff --git a/lisp/language/lao.el b/lisp/language/lao.el
index dd132ef12f..b26a8f389e 100644
--- 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; no-byte-compile: t -*-
 
-;; 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,24 +23,47 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (make-coding-system
  'lao 2 ?L
- "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)"
- '((ascii t) (lao t) nil nil
-   nil ascii-eol))
+ "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)."
+ '(ascii lao nil nil
+   nil nil nil nil nil nil nil nil nil nil nil t)
+ '((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((1>RJRERG(B)            (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(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 ?(1;(B t)
+(aset use-default-ascent ?$,1D;(B t)
 (aset use-default-ascent ?(1=(B t)
+(aset use-default-ascent ?$,1D=(B t)
 (aset use-default-ascent ?(1?(B t)
+(aset use-default-ascent ?$,1D?(B t)
 (aset use-default-ascent ?(1B(B t)
+(aset use-default-ascent ?$,1DB(B t)
+(aset ignore-relative-composition ?(1\(B t)
+(aset ignore-relative-composition ?$,1D\(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)
 
+;;; arch-tag: ba540fd9-6352-4449-a9cd-669afd21fa57
 ;;; lao.el ends here