From 8dfef5034a3cbad1a74fcd80b2fb6e3a877933bb Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 5 Apr 1997 02:45:30 +0000 Subject: [PATCH] English related codes are moved to language/english.el. (setup-european-environment): Call setup-english-environment to reset to default setting at first. --- lisp/language/european.el | 28 ++++++++++------------------ 1 file changed, 10 insertions(+), 18 deletions(-) diff --git a/lisp/language/european.el b/lisp/language/european.el index 7c27d7ba037..cef668b9d04 100644 --- a/lisp/language/european.el +++ b/lisp/language/european.el @@ -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 -- 2.39.2