/[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.2.1 by handa, Fri Mar 1 02:28:29 2002 UTC revision 1.17.2.2 by handa, Thu Nov 7 06:31:13 2002 UTC
# Line 42  Line 42 
42           (features lao-util)           (features lao-util)
43           (documentation . t)))           (documentation . t)))
44    
45  ;; Register a function to compose Lao characters.  ;; For automatic composition.
46  (set-char-table-range composition-function-table  (let ((chars "(1QTUVWXY[\hijklm(B"))
47                        '(#x0F00 . #x0F7F)    (dotimes (i (length chars))
48                        '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?"      (aset composition-function-table (aref chars i)
49                           . lao-composition-function)))            'lao-composition-function)))
50    
51  (provide 'lao)  (provide 'lao)
52    

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

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