(language-info-alist): Doc-string modified.

(reset-language-environment): New function for the job that
setup-english-environment used to do.
(set-language-environment): Do more setups according to the info
in language-info-alist.
(read-language-name): Handle the case that the arg KEY is nil.  *
(describe-language-environment): Handle input-method property.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index a9eab9e9f2f14af30466d5fce7e1a155dad08498..abda95f64dd22a459326d7507b6fefb68824d789 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -507,15 +507,29 @@ Meaningful values for KEY include
                        environment, in order of decreasing priority.
                        This is used to set up the coding system priority
                        list when you switch to this language environment.
-
-  nonascii-translation-table
+  nonascii-translation
                     value is a translation table to be set to the
                        variable `nonascii-translation-table' in this
                        language environment.
-
   charset-origin-alist
                     value is an alist to be set to the variable
-                       `charset-origin-alist' in this language environment.")
+                       `charset-origin-alist' in this language environment.
+  input-method       value is a default input method for this language
+                       environment.
+
+The following keys take effect only when multibyte characters are
+globally disabled, i.e. the value of `default-enable-multibyte-characters'
+is nil.
+
+  unibyte-syntax     value is a library name to load to set
+                       unibyte 8-bit charcater syntaxes for this
+                       language environment.
+
+  unibyte-display    value is a coding system to encode characters
+                       for the terminal.  Characters in the range
+                       of 160 to 255 display not as octal escapes,
+                       but as non-ASCII characters in this language
+                       environment.")
 
 (defun get-language-info (lang-env key)
   "Return information listed under KEY for language environment LANG-ENV.
@@ -608,15 +622,18 @@ in the European submenu in each of those two menus."
 
 (defun read-language-name (key prompt &optional default)
   "Read a language environment name which has information for KEY.
+If KEY is nil, read any language environment.
 Prompt with PROMPT.  DEFAULT is the default choice of language environment.
 This returns a language environment name as a string."
   (let* ((completion-ignore-case t)
         (name (completing-read prompt
                                language-info-alist
-                               (function (lambda (elm) (assq key elm)))
+                               (and key
+                                    (function (lambda (elm) (assq key elm))))
                                t nil nil default)))
     (if (and (> (length name) 0)
-            (get-language-info name key))
+            (or (not key)
+                (get-language-info name key)))
        name)))
 \f
 ;;; Multilingual input methods.
@@ -984,6 +1001,74 @@ This hook is mainly used for cancelling the effect of
   :group 'mule
   :type 'string)
 
+(defun reset-language-environment ()
+  "Reset multilingual environment of Emacs to the default status.
+
+The default status is as follows:
+
+  The default value of buffer-file-coding-system is nil.
+  The default coding system for process I/O is nil.
+  The default value for the command `set-terminal-coding-system' is nil.
+  The default value for the command `set-keyboard-coding-system' is nil.
+
+  The order of priorities of coding categories and the coding system
+  bound to each category are as follows
+       coding category                 coding system
+       --------------------------------------------------
+       coding-category-iso-8-2         iso-latin-1
+       coding-category-iso-8-1         iso-latin-1
+       coding-category-iso-7-tight     iso-2022-jp
+       coding-category-iso-7           iso-2022-7bit
+       coding-category-iso-7-else      iso-2022-7bit-lock
+       coding-category-iso-8-else      iso-2022-8bit-ss2
+       coding-category-emacs-mule      emacs-mule
+       coding-category-raw-text        raw-text
+       coding-category-sjis            japanese-shift-jis
+       coding-category-big5            chinese-big5
+       coding-category-ccl             nil
+       coding-category-binarry         no-conversion
+"
+  (interactive)
+  ;; This function formerly set default-enable-multibyte-characters to t,
+  ;; but that is incorrect.  It should not alter the unibyte/multibyte choice.
+
+  (setq coding-category-iso-7-tight    'iso-2022-jp
+       coding-category-iso-7           'iso-2022-7bit
+       coding-category-iso-8-1         'iso-latin-1
+       coding-category-iso-8-2         'iso-latin-1
+       coding-category-iso-7-else      'iso-2022-7bit-lock
+       coding-category-iso-8-else      'iso-2022-8bit-ss2
+       coding-category-emacs-mule      'emacs-mule
+       coding-category-raw-text        'raw-text
+       coding-category-sjis            'japanese-shift-jis
+       coding-category-big5            'chinese-big5
+       coding-category-ccl             nil
+       coding-category-binary          'no-conversion)
+
+  (set-coding-priority
+   '(coding-category-iso-8-1
+     coding-category-iso-8-2
+     coding-category-iso-7-tight
+     coding-category-iso-7
+     coding-category-iso-7-else
+     coding-category-iso-8-else
+     coding-category-emacs-mule 
+     coding-category-raw-text
+     coding-category-sjis
+     coding-category-big5
+     coding-category-ccl
+     coding-category-binary))
+
+  (set-default-coding-systems nil)
+  ;; Don't alter the terminal and keyboard coding systems here.
+  ;; The terminal still supports the same coding system
+  ;; that it supported a minute ago.
+;;;  (set-terminal-coding-system-internal nil)
+;;;  (set-keyboard-coding-system-internal nil)
+
+  (setq nonascii-translation-table nil
+       nonascii-insert-offset 0))
+
 (defun set-language-environment (language-name)
   "Set up multi-lingual environment for using LANGUAGE-NAME.
 This sets the coding system priority and the default input method
@@ -991,29 +1076,67 @@ and sometimes other things.  LANGUAGE-NAME should be a string
 which is the name of a language environment.  For example, \"Latin-1\"
 specifies the character set for the major languages of Western Europe."
   (interactive (list (read-language-name
-                     'setup-function
+                     nil
                      "Set language environment (default, English): ")))
   (if language-name
       (if (symbolp language-name)
          (setq language-name (symbol-name language-name)))
     (setq language-name "English"))
-  (if (null (get-language-info language-name 'setup-function))
+  (or (assoc-ignore-case language-name language-info-alist)
       (error "Language environment not defined: %S" language-name))
   (if current-language-environment
       (let ((func (get-language-info current-language-environment
                                     'exit-function)))
        (run-hooks 'exit-language-environment-hook)
        (if (fboundp func) (funcall func))))
-  (when (and (not default-enable-multibyte-characters)
-            (get-language-info language-name 'unibyte-syntax))
-    (set-terminal-coding-system (intern (downcase language-name)))
-    (standard-display-european-internal))
+  (reset-language-environment)
+
   (setq current-language-environment language-name)
-  (setq nonascii-translation-table
-       (get-language-info language-name 'nonascii-translation-table))
+  (set-language-environment-coding-systems language-name)
+  (let ((input-method (get-language-info language-name 'input-method)))
+    (when input-method
+      (setq default-input-method input-method)
+      (if input-method-history
+         (setq input-method-history
+               (cons input-method
+                     (delete input-method input-method-history))))))
+  (let ((nonascii (get-language-info language-name 'nonascii-translation)))
+    (if (char-table-p nonascii)
+       (setq nonascii-translation-table nonascii)      
+      (if (charsetp nonascii)
+         (setq nonascii-insert-offset (- (make-char nonascii) 128)))))
+
   (setq charset-origin-alist
        (get-language-info language-name 'charset-origin-alist))
-  (funcall (get-language-info language-name 'setup-function))
+
+  (unless default-enable-multibyte-characters
+    ;; Unibyte setups.
+    (let ((syntax (get-language-info language-name 'unibyte-syntax)))
+      (if syntax
+         (let ((set-case-syntax-set-multibyte nil))
+           (load syntax nil t)
+           (set-standard-case-table (standard-case-table))
+           (let ((list (buffer-list)))
+             (while list
+               (with-current-buffer (car list)
+                 (set-case-table (standard-case-table)))
+               (setq list (cdr list)))))))
+    (let ((coding (get-language-info language-name 'unibyte-display)))
+      (if coding
+         (progn
+           (standard-display-european-internal)
+           (set-terminal-coding-system coding))
+       (standard-display-default 160 255)
+       (aset standard-display-table 146 nil)
+       (set-terminal-coding-system nil))))
+
+  (let ((required-features (get-language-info language-name 'features)))
+    (while required-features
+      (require (car required-features))
+      (setq required-features (cdr required-features))))
+  (let ((func (get-language-info language-name 'setup-function)))
+    (if (fboundp func)
+       (funcall func)))
   (run-hooks 'set-language-environment-hook)
   (force-mode-line-update t))
 
@@ -1086,8 +1209,14 @@ specifies the character set for the major languages of Western Europe."
              (princ "Sample text:\n")
              (princ-list "  " str)
              (terpri))))
-      (princ "Input methods:\n")
-      (let ((l input-method-alist))
+      (let ((input-method (get-language-info language-name 'input-method))
+           (l input-method-alist))
+       (princ "Input methods")
+       (when input-method
+         (princ (format " (default, %s)" input-method))
+         (setq input-method (assoc input-method input-method-alist))
+         (setq l (cons input-method (delete input-method l))))
+       (princ ":\n")
        (while l
          (if (string= language-name (nth 1 (car l)))
              (princ-list "  " (car (car l))