Mercurial > hg > xemacs-beta

comparison lisp/language/lao-util.el @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents 3bb7ccffb0c0
children
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
1 ;;; lao-util.el --- utilities for Lao 1 ;;; lao-util.el --- utilities for Lao
2 2
3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
4 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5 5
6 ;; Keywords: multilingual, Lao 6 ;; Keywords: multilingual, Lao
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Code: 25 ;;; Code:
26 26
27 ;;;###autoload
28 (defun setup-lao-environment ()
29 "Setup multilingual environment (MULE) for Lao."
30 (interactive)
31 (setup-8-bit-environment "Lao" 'lao 'iso-2022-7bit
32 "lao"))
33
27 (let ((l '((?(1!(B consonant "LETTER KOR KAI'" "CHICKEN") 34 (let ((l '((?(1!(B consonant "LETTER KOR KAI'" "CHICKEN")
28 (?(1"(B consonant "LETTER KHOR KHAI'" "EGG") 35 (?(1"(B consonant "LETTER KHOR KHAI'" "EGG")
29 (?(1#(B invalid nil) 36 (?(1#(B invalid nil)
30 (?(1$(B consonant "LETTER QHOR QHWARGN" "BUFFALO") 37 (?(1$(B consonant "LETTER QHOR QHWARGN" "BUFFALO")
31 (?(1%(B invalid nil) 38 (?(1%(B invalid nil)
43 (?(1.(B invalid nil) 50 (?(1.(B invalid nil)
44 (?(1.(B invalid nil) 51 (?(1.(B invalid nil)
45 (?(1.(B invalid nil) 52 (?(1.(B invalid nil)
46 (?(14(B consonant "LETTER DOR DANG" "NOSE") 53 (?(14(B consonant "LETTER DOR DANG" "NOSE")
47 (?(15(B consonant "LETTER TOR TAR" "EYE") 54 (?(15(B consonant "LETTER TOR TAR" "EYE")
48 (?(16(B consonant "LETTER DHOR DHARM" "TO ASK,QUESTION") 55 (?(16(B consonant "LETTER THOR THUNG" "TO ASK,QUESTION")
49 (?(17(B consonant "LETTER THOR THUNG" "FLAG") 56 (?(17(B consonant "LETTER DHOR DHARM" "FLAG")
50 (?(18(B invalid nil) 57 (?(18(B invalid nil)
51 (?(19(B consonant "LETTER NOR NOK" "BIRD") 58 (?(19(B consonant "LETTER NOR NOK" "BIRD")
52 (?(1:(B consonant "LETTER BOR BED" "FISHHOOK") 59 (?(1:(B consonant "LETTER BOR BED" "FISHHOOK")
53 (?(1;(B consonant "LETTER POR PAR" "FISH") 60 (?(1;(B consonant "LETTER POR PAR" "FISH")
54 (?(1<(B consonant "LETTER HPOR HPER\"" "BEE") 61 (?(1<(B consonant "LETTER HPOR HPER\"" "BEE")
126 (put-char-code-property (car elm) 'name (nth 2 elm)) 133 (put-char-code-property (car elm) 'name (nth 2 elm))
127 (put-char-code-property (car elm) 'meaning (nth 3 elm)) 134 (put-char-code-property (car elm) 'meaning (nth 3 elm))
128 (setq l (cdr l)))) 135 (setq l (cdr l))))
129 136
130 ;; 137 ;;
131 (provide 'language/lao-util) 138 (provide 'lao-util)
132 139
133 ;;; lao-util.el ends here 140 ;;; lao-util.el ends here