changeset 22887:e24b79da83d6

(language-info-alist): Doc-string modified. (set-language-environment): Setup nonascii-translation-table and charset-origin-alist according to the property of the specified language environment. (update-iso-coding-systems): Make it an alias for update-coding-systems-internal. (prefer-coding-system): Call update-coding-systems-internal instead of update-iso-coding-systems. (set-language-environment-coding-systems): Likewise.

--- a/lisp/international/mule-cmds.el	Sun Aug 02 01:06:57 1998 +0000
+++ b/lisp/international/mule-cmds.el	Sun Aug 02 01:06:57 1998 +0000
@@ -209,6 +209,9 @@
   (setq default-keyboard-coding-system coding-system)
   (setq default-process-coding-system (cons coding-system coding-system)))
 
+(defalias 'update-iso-coding-systems 'update-coding-systems-internal)
+(make-obsolete 'update-iso-coding-systems 'update-coding-systems-internal)
+
 (defun prefer-coding-system (coding-system)
   "Add CODING-SYSTEM at the front of the priority list for automatic detection.
 This also sets the following coding systems:
@@ -227,7 +230,7 @@
 	;; CODING-SYSTEM is no-conversion or undecided.
 	(error "Can't prefer the coding system `%s'" coding-system))
     (set coding-category (or base coding-system))
-    (update-iso-coding-systems)
+    (update-coding-systems-internal)
     (if (not (eq coding-category (car coding-category-list)))
 	;; We must change the order.
 	(setq coding-category-list
@@ -502,7 +505,16 @@
   coding-priority    value is a list of coding systems for this language
 			environment, in order of decreasing priority.
 			This is used to set up the coding system priority
-			list when you switch to this language environment.")
+			list when you switch to this language environment.
+
+  nonascii-translation-table
+		     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.")
 
 (defun get-language-info (lang-env key)
   "Return information listed under KEY for language environment LANG-ENV.
@@ -983,6 +995,10 @@
     (set-terminal-coding-system (intern (downcase language-name)))
     (standard-display-european-internal))
   (setq current-language-environment language-name)
+  (setq nonascii-translation-table
+	(get-language-info language-name 'nonascii-translation-table))
+  (setq charset-origin-alist
+	(get-language-info language-name 'charset-origin-alist))
   (funcall (get-language-info language-name 'setup-function))
   (run-hooks 'set-language-environment-hook)
   (force-mode-line-update t))
@@ -1009,7 +1025,7 @@
 	  (while priority
 	    (set (car categories) (car priority))
 	    (setq priority (cdr priority) categories (cdr categories)))
-	  (update-iso-coding-systems)))))
+	  (update-coding-systems-internal)))))
 
 ;; Print all arguments with `princ', then print "\n".
 (defsubst princ-list (&rest args)