# HG changeset patch
# User Eli Zaretskii <eliz@is.elta.co.il>
# Date 1072695526 0
# Node ID ff43a451f2696aa92db2d96ccedbc3ceeeb3bc27
# Parent  01e8a4191802057e87d7b3232f4cb607268290cc
(reset-language-environment, set-language-environment): Don't invoke
fontset-related functions if fontset-list is not fboundp.

diff -r 01e8a4191802 -r ff43a451f269 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Mon Dec 29 07:11:58 2003 +0000
+++ b/lisp/international/mule-cmds.el	Mon Dec 29 10:58:46 2003 +0000
@@ -1693,7 +1693,10 @@
   (setq nonascii-translation-table nil
 	nonascii-insert-offset 0)
 
-  (set-overriding-fontspec-internal nil))
+  ;; Don't invoke fontset-related functions if fontsets aren't
+  ;; supported in this build of Emacs.
+  (and (fboundp 'fontset-list)
+       (set-overriding-fontspec-internal nil)))
 
 (reset-language-environment)
 
@@ -1800,10 +1803,13 @@
       (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)))
+  ;; Don't invoke fontset-related functions if fontsets aren't
+  ;; supported in this build of Emacs.
+  (when (fboundp 'fontset-list)
+    (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)