(set-language-environment): Check

for charset property of environment.

(set-language-environment): Check
for charset property of environment.
5b74b0c7 · Dave Love · 2aa97617 · 5b74b0c7
Commit 5b74b0c7 authored Oct 05, 2002 by Dave Love
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/international/mule-cmds.el lisp/international/mule-cmds.el +3 -1

No files found.
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1442,7 +1442,9 @@ specifies the character set for the major languages of Western Europe."

  ;; 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.