changeset 89151:eab07aa0b8fe

(set-language-environment): Check for charset property of environment.
author Dave Love <fx@gnu.org>
date Sat, 05 Oct 2002 19:04:00 +0000
parents b50c2b9d6979
children a2fead5d3c2e
files lisp/international/mule-cmds.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el	Sat Oct 05 19:00:51 2002 +0000
+++ b/lisp/international/mule-cmds.el	Sat Oct 05 19:04:00 2002 +0000
@@ -1442,7 +1442,9 @@
 
   ;; Fixme: default from the environment coding system where that's
   ;; charset-based.
-  (apply 'set-charset-priority  (get-language-info language-name 'charset))
+  (if (get-language-info language-name 'charset)
+      (apply 'set-charset-priority  (get-language-info language-name
+						       'charset)))
 
   ;; Note: For DOS, we assumed that the charset cpXXX is already
   ;; defined.