English related codes are moved to

language/english.el.
(setup-european-environment): Call setup-english-environment to
reset to default setting at first.

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 7c27d7ba0377e9102933426306c623fb356b63bf..cef668b9d04c2515199b8a0b548788b9fb8e909a 100644 (file)
--- 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\e,A|_\e(B Gott, Ciao, \e,A!\e(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