/[emacs]/emacs/lisp/language/lao.el
ViewVC logotype

Diff of /emacs/lisp/language/lao.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by wl, Tue Dec 18 17:51:50 2001 UTC revision 1.17.2.1 by handa, Fri Mar 1 02:28:29 2002 UTC
# Line 27  Line 27 
27    
28  ;;; Code:  ;;; Code:
29    
30  (make-coding-system  (define-coding-system 'lao
31   'lao 2 ?L    "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)."
32   "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)."    :coding-type 'charset
33   '(ascii lao nil nil    :mnemonic ?L
34     nil nil)    :charset-list '(lao))
  '((safe-charsets ascii lao)  
    (post-read-conversion . lao-post-read-conversion)))  
35    
36  (set-language-info-alist  (set-language-info-alist
37   "Lao" '((charset lao)   "Lao" '((charset lao)
38           (coding-system lao)           (coding-system lao)
39           (coding-priority lao)           (coding-priority lao)
40           (input-method . "lao")           (input-method . "lao")
          (nonascii-translation . lao)  
41           (unibyte-display . lao)           (unibyte-display . lao)
42           (features lao-util)           (features lao-util)
43           (documentation . t)))           (documentation . t)))
44    
 (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)  
   
45  ;; Register a function to compose Lao characters.  ;; Register a function to compose Lao characters.
46  (let ((patterns '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?"  (set-char-table-range composition-function-table
47           . lao-composition-function))))                        '(#x0F00 . #x0F7F)
48    (aset composition-function-table (make-char 'lao) patterns)                        '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?"
49    (dotimes (i (1+ (- #xeff #xe80)))                           . lao-composition-function)))
     (aset composition-function-table (decode-char 'ucs (+ i #xe80)) patterns)))  
50    
51  (provide 'lao)  (provide 'lao)
52    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.17.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26