# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 921670145 0
# Node ID 14e1df6e60a8ac7f62f1be1f80c11bfe17f8794a
# Parent  ea1ab7f251102b6e38d088bf1772967ee3dc7d1c
(set-language-environment): Fix
previous change: don't use dos-codepage when unbound.

diff -r ea1ab7f25110 -r 14e1df6e60a8 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Wed Mar 17 11:10:29 1999 +0000
+++ b/lisp/international/mule-cmds.el	Wed Mar 17 11:29:05 1999 +0000
@@ -1249,7 +1249,9 @@
 		      (delete input-method input-method-history))))))
   (let ((nonascii (get-language-info language-name 'nonascii-translation))
 	(dos-table
-	 (intern (concat "cp" dos-codepage "-nonascii-translation-table"))))
+	 (if (eq window-system 'pc)
+	     (intern
+	      (concat "cp" dos-codepage "-nonascii-translation-table")))))
     (cond
      ((char-table-p nonascii)
       (setq nonascii-translation-table nonascii))