# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1072681809 0
# Node ID fea694690fc7404e83760db73cc009ce8662e860
# Parent  605475ba45e3a586222386444dc94dddf3d39fb5
(reset-language-environment): Call
set-overriding-fontspec-internal with nil.
(set-language-environment): Call set-overriding-fontspec-internal
if the language environment specify `overriding-fontspec'.
(language-info-alist): Doc added.

diff -r 605475ba45e3 -r fea694690fc7 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Mon Dec 29 06:54:55 2003 +0000
+++ b/lisp/international/mule-cmds.el	Mon Dec 29 07:10:09 2003 +0000
@@ -1006,6 +1006,12 @@
 			environment.
   features           value is a list of features requested in this
 			language environment.
+  ctext-non-standard-encodings
+		     value is a list of non-standard encoding
+		     names used in extended segments of CTEXT.
+		     See the variable
+		     `ctext-non-standard-encodings' for more
+		     detail.
 
 The following keys take effect only when multibyte characters are
 globally disabled, i.e. the value of `default-enable-multibyte-characters'
@@ -1685,7 +1691,9 @@
   ;; (set-keyboard-coding-system-internal nil)
 
   (setq nonascii-translation-table nil
-	nonascii-insert-offset 0))
+	nonascii-insert-offset 0)
+
+  (set-overriding-fontspec-internal nil))
 
 (reset-language-environment)
 
@@ -1791,6 +1799,12 @@
     (while required-features
       (require (car required-features))
       (setq required-features (cdr required-features))))
+
+  (let ((overriding-fontspec (get-language-info language-name 
+						'overriding-fontspec)))
+    (if overriding-fontspec
+	(set-overriding-fontspec-internal overriding-fontspec)))
+
   (let ((func (get-language-info language-name 'setup-function)))
     (if (functionp func)
 	(funcall func)))