mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

Make functions setup-LANGUAGE-environment

Browse Source 
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.
This commit is contained in:
Kenichi Handa 1997-05-12 07:00:09 +00:00
parent 164c39f77e
commit 580250aafd
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/language/european.el
View File

@ -69,23 +69,36 @@
'("quail-latin-5" quail-use-package "quail/latin"))
(defun setup-european-environment ()
"Setup multilingual environment (MULE) for European languages users.
It actually reset MULE to the default status, and
set quail-latin-1 as the default input method to be selected.
See also the documentation of setup-english-environment."
(setup-english-environment)
(setq default-input-method '("European" . "quail-latin-1")))
(setq default-input-method '("European" . "quail-latin-1"))
)
(defun describe-european-support ()
"Describe how Emacs support European languages."
(interactive)
(describe-language-support-internal "European"))
(set-language-info-alist
"European" '((setup-function . setup-european-environment)
(describe-function . describe-european-support)
(charset . (ascii latin-iso8859-1 latin-iso8859-2
latin-iso8859-3 latin-iso8859-4 latin-iso8859-9))
(coding-system . (iso-8859-1 iso-8859-2 iso-8859-3
iso-8859-4 iso-8859-9))
(documentation . t)
(sample-text
. "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!")))
. "Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!")
(documentation . "\
Almost all of European languages are supported by the character sets and
coding systems listed below.
To input them, LEIM (Libraries for Emacs Input Methods) should have been
installed.")
))
(let ((languages '("French" "German" "Spanish" "Italian"
;; We have to list much more European langauges here.
;; We have to list much more European languages here.
))
(val '("quail-latin-1" quail-use-package "quail/latin")))
(while languages