mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

English related codes are moved to

Browse source 
language/english.el.
(setup-european-environment): Call setup-english-environment to
reset to default setting at first.
This commit is contained in:
Kenichi Handa 1997-04-05 02:45:30 +00:00
parent 80d75b56bd
commit 8dfef5034a
1 changed files with 10 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lisp/language/european.el
View file

@ -69,35 +69,27 @@
'("quail-latin-5" quail-use-package "quail/latin"))
(defun setup-european-environment ()
(setq coding-category-iso-8-1 'iso-8859-1)
(set-coding-priority
'(coding-category-iso-7
coding-category-iso-8-1
coding-category-iso-8-2))
(setq-default buffer-file-coding-system 'iso-8859-1)
(set-terminal-coding-system 'iso-8859-1)
(set-keyboard-coding-system 'iso-8859-1)
(setup-english-environment)
(setq default-input-method '("European" . "quail-latin-1"))
)
(set-language-info "English" 'tutorial "TUTORIAL")
(register-input-method "French"
'("quail-latin-1" quail-use-package "quail/latin"))
(register-input-method "French"
'("quail-latin-1" quail-use-package "quail/latin"))
(set-language-info-alist
"European" '((setup-function . setup-european-environment)
(charset . (ascii latin-iso8859-1 latin-iso8859-2
latin-iso8859-3 latin-iso8859-4 latin-iso8859-9))
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!")))
(let ((languages '("French" "German" "Spanish" "Italian"
;; We have to list much more European langauges here.
))
(val '("quail-latin-1" quail-use-package "quail/latin")))
(while languages
(register-input-method (car languages) val)
(setq languages (cdr languages))))
;;; european.el ends here