mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-17 03:10:58 -08:00
Code Issues Projects Releases Wiki Activity

Add Unicode equivalents.

Browse source 
(lao): Add post-read conversion.
This commit is contained in:
Dave Love 2001-12-07 18:16:15 +00:00
parent c84d3ba0d6
commit 10c9f8c2af
1 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/language/lao.el
View file

@ -2,6 +2,7 @@
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation. ;; Licensed to the Free Software Foundation.
;; Copyright (C) 2001 Free Software Foundation, Inc.
;; Keywords: multilingual, Lao ;; Keywords: multilingual, Lao
@ -31,7 +32,8 @@
"8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)" "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)"
'(ascii lao nil nil '(ascii lao nil nil
nil nil) nil nil)
'((safe-charsets ascii lao))) '((safe-charsets ascii lao)
(post-read-conversion . lao-post-read-conversion)))
(set-language-info-alist (set-language-info-alist
"Lao" '((charset lao) "Lao" '((charset lao)
@ -44,15 +46,22 @@
(documentation . t))) (documentation . t)))
(aset use-default-ascent ?(1;(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 ?(1=(B t)
(aset use-default-ascent ?$,1D=(B t)
(aset use-default-ascent ?(1?(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 ?(1B(B t)
(aset use-default-ascent ?$,1DB(B t)
(aset ignore-relative-composition ?(1\(B t) (aset ignore-relative-composition ?(1\(B t)
(aset ignore-relative-composition ?$,1D\(B t)
;; Register a function to compose Lao characters. ;; Register a function to compose Lao characters.
(aset composition-function-table (make-char 'lao) (let ((patterns '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?"
'(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?" . lao-composition-function))))
. 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) (provide 'lao)