-;;; 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
;; 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(\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)
+;;; arch-tag: ba540fd9-6352-4449-a9cd-669afd21fa57
;;; lao.el ends here