Mercurial > emacs

comparison lisp/language/lao.el @ 17772:550afdbb31d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make functions setup-LANGUAGE-environment interactive and add new functions describe-LANGUAGE-support for all LANGUAGEs supported. Remove resisterations of input methods which use the function encoded-kbd-select-terminal.
author Kenichi Handa <handa@m17n.org>
date Mon, 12 May 1997 07:00:16 +0000
parents 9e6a3e03ed4c
children 084d922fcd78
comparison
equal deleted inserted replaced
17771:1db36f7e82d1 17772:550afdbb31d8
35 35
36 (register-input-method 36 (register-input-method
37 "Lao" '("quail-lrt" quail-use-package "quail/lrt")) 37 "Lao" '("quail-lrt" quail-use-package "quail/lrt"))
38 38
39 (defun setup-lao-environment () 39 (defun setup-lao-environment ()
40 "Setup multilingual environment (MULE) for Lao."
41 (interactive)
42 (setup-english-environment)
40 (setq coding-category-iso-8-1 'lao) 43 (setq coding-category-iso-8-1 'lao)
41 44
42 (set-coding-priority 45 (set-coding-priority
43 '(coding-category-iso-7 46 '(coding-category-iso-7
44 coding-category-iso-8-1)) 47 coding-category-iso-8-1))
45 48
46 (set-default buffer-file-coding-system 'iso-2022-7) 49 (set-default buffer-file-coding-system 'iso-2022-7)
47 50
48 (setq default-input-method '("Lao" . "quail-lao"))) 51 (setq default-input-method '("Lao" . "quail-lao")))
49 52
53 (defun describe-lao-support ()
54 "Describe how Emacs supports Lao."
55 (interactive)
56 (describe-language-support-internal "Lao"))
57
50 (set-language-info-alist 58 (set-language-info-alist
51 "Lao" '((setup-function . setup-lao-environment) 59 "Lao" '((setup-function . setup-lao-environment)
60 (describe-function . describe-lao-support)
52 (charset . (lao)) 61 (charset . (lao))
53 (coding-system . (lao)) 62 (coding-system . (lao))
54 (documentation . t) 63 (sample-text . "Lao((1>RJRERG(B) (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(B")
55 (sample-text . "Lao((1>RJRERG(B) (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(B"))) 64 (documentation . nil)))
56 65
57 (aset use-default-ascent ?(1;(B t) 66 (aset use-default-ascent ?(1;(B t)
58 (aset use-default-ascent ?(1=(B t) 67 (aset use-default-ascent ?(1=(B t)
59 (aset use-default-ascent ?(1?(B t) 68 (aset use-default-ascent ?(1?(B t)
60 (aset use-default-ascent ?(1B(B t) 69 (aset use-default-ascent ?(1B(B t)