# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1033844640 0
# Node ID eab07aa0b8fe8575779edf8c92f8e4da99cf3724
# Parent  b50c2b9d6979399f72d79aefb621fd6a3b54c96f
(set-language-environment): Check
for charset property of environment.

diff -r b50c2b9d6979 -r eab07aa0b8fe lisp/international/mule-cmds.el
--- 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.