Mercurial > emacs

comparison lisp/language/european.el @ 17768:93caf447ed72

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. Typo in comment fixed.
author Kenichi Handa <handa@m17n.org>
date Mon, 12 May 1997 07:00:09 +0000
parents 1012d679efd4
children 084d922fcd78
comparison
equal deleted inserted replaced
17767:d93b9414ff2b 17768:93caf447ed72
67 '("quail-latin-4" quail-use-package "quail/latin")) 67 '("quail-latin-4" quail-use-package "quail/latin"))
68 (register-input-method "European" 68 (register-input-method "European"
69 '("quail-latin-5" quail-use-package "quail/latin")) 69 '("quail-latin-5" quail-use-package "quail/latin"))
70 70
71 (defun setup-european-environment () 71 (defun setup-european-environment ()
72 "Setup multilingual environment (MULE) for European languages users.
73 It actually reset MULE to the default status, and
74 set quail-latin-1 as the default input method to be selected.
75 See also the documentation of setup-english-environment."
72 (setup-english-environment) 76 (setup-english-environment)
77 (setq default-input-method '("European" . "quail-latin-1")))
73 78
74 (setq default-input-method '("European" . "quail-latin-1")) 79 (defun describe-european-support ()
75 ) 80 "Describe how Emacs support European languages."
81 (interactive)
82 (describe-language-support-internal "European"))
76 83
77 (set-language-info-alist 84 (set-language-info-alist
78 "European" '((setup-function . setup-european-environment) 85 "European" '((setup-function . setup-european-environment)
86 (describe-function . describe-european-support)
79 (charset . (ascii latin-iso8859-1 latin-iso8859-2 87 (charset . (ascii latin-iso8859-1 latin-iso8859-2
80 latin-iso8859-3 latin-iso8859-4 latin-iso8859-9)) 88 latin-iso8859-3 latin-iso8859-4 latin-iso8859-9))
81 (coding-system . (iso-8859-1 iso-8859-2 iso-8859-3 89 (coding-system . (iso-8859-1 iso-8859-2 iso-8859-3
82 iso-8859-4 iso-8859-9)) 90 iso-8859-4 iso-8859-9))
83 (documentation . t)
84 (sample-text 91 (sample-text
85 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!"))) 92 . "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!")
93 (documentation . "\
94 Almost all of European languages are supported by the character sets and
95 coding systems listed below.
96 To input them, LEIM (Libraries for Emacs Input Methods) should have been
97 installed.")
98 ))
86 99
87 (let ((languages '("French" "German" "Spanish" "Italian" 100 (let ((languages '("French" "German" "Spanish" "Italian"
88 ;; We have to list much more European langauges here. 101 ;; We have to list much more European languages here.
89 )) 102 ))
90 (val '("quail-latin-1" quail-use-package "quail/latin"))) 103 (val '("quail-latin-1" quail-use-package "quail/latin")))
91 (while languages 104 (while languages
92 (register-input-method (car languages) val) 105 (register-input-method (car languages) val)
93 (setq languages (cdr languages)))) 106 (setq languages (cdr languages))))