diff options
| author | Dave Love <fx@gnu.org> | 2001-12-07 18:16:15 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2001-12-07 18:16:15 +0000 |
| commit | 10c9f8c2af2ae6b16384a60f3dd3094e8aa19a4c (patch) | |
| tree | cbd3072c26602f58fe654684f800cec74185bec9 /lisp/language | |
| parent | c84d3ba0d6f828460298243b5f23eeceaf15c723 (diff) | |
| download | emacs-10c9f8c2af2ae6b16384a60f3dd3094e8aa19a4c.tar.gz | |
Add Unicode equivalents.
(lao): Add post-read conversion.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/lao.el | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/lisp/language/lao.el b/lisp/language/lao.el index ec2a62943d3..d4c54d0c165 100644 --- a/lisp/language/lao.el +++ b/lisp/language/lao.el @@ -2,6 +2,7 @@ ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. +;; Copyright (C) 2001 Free Software Foundation, Inc. ;; Keywords: multilingual, Lao @@ -31,7 +32,8 @@ "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)" '(ascii lao nil nil nil nil) - '((safe-charsets ascii lao))) + '((safe-charsets ascii lao) + (post-read-conversion . lao-post-read-conversion))) (set-language-info-alist "Lao" '((charset lao) @@ -44,15 +46,22 @@ (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. -(aset composition-function-table (make-char 'lao) - '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?" - . lao-composition-function))) +(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) |