Mercurial > hg > xemacs-beta

comparison lisp/language/lao.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.el --- Support for Lao 1 ;;; lao.el --- Support 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
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Code: 25 ;;; Code:
26 26
27 (make-coding-system 27 (make-coding-system
28 'lao 2 ?T 28 'lao 2 ?L
29 "Coding-system used for ASCII(MSB=0) & LAO(MSB=1)." 29 "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)"
30 '((ascii t) (lao t) nil nil 30 '((ascii t) (lao t) nil nil
31 nil ascii-eol)) 31 nil ascii-eol))
32 32
33 (register-input-method
34 "Lao" '("quail-lao" quail-use-package "quail/lao"))
35
36 (register-input-method
37 "Lao" '("quail-lrt" quail-use-package "quail/lrt"))
38
39 (defun setup-lao-environment ()
40 "Setup multilingual environment (MULE) for Lao."
41 (interactive)
42 (setup-english-environment)
43 (setq coding-category-iso-8-1 'lao)
44
45 (set-coding-priority
46 '(coding-category-iso-7
47 coding-category-iso-8-1))
48
49 (set-default buffer-file-coding-system 'iso-2022-7)
50
51 (setq default-input-method '("Lao" . "quail-lao")))
52
53 (defun describe-lao-support ()
54 "Describe how Emacs supports Lao."
55 (interactive)
56 (describe-language-support-internal "Lao"))
57
58 (set-language-info-alist 33 (set-language-info-alist
59 "Lao" '((setup-function . setup-lao-environment) 34 "Lao" '((setup-function . setup-lao-environment)
60 (describe-function . describe-lao-support)
61 (charset . (lao)) 35 (charset . (lao))
62 (coding-system . (lao)) 36 (coding-system . (lao))
63 (sample-text . "Lao((1>RJRERG(B) (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(B") 37 (sample-text . "Lao((1>RJRERG(B) (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(B")
64 (documentation . nil))) 38 (documentation . t)))
65 39
66 (aset use-default-ascent ?(1;(B t) 40 (aset use-default-ascent ?(1;(B t)
67 (aset use-default-ascent ?(1=(B t) 41 (aset use-default-ascent ?(1=(B t)
68 (aset use-default-ascent ?(1?(B t) 42 (aset use-default-ascent ?(1?(B t)
69 (aset use-default-ascent ?(1B(B t) 43 (aset use-default-ascent ?(1B(B t)
44 (aset ignore-relative-composition ?(1\(B t)
70 45
71 ;;; lao.el ends here 46 ;;; lao.el ends here