From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 17 Mar 1999 11:29:05 +0000 (+0000)
Subject: (set-language-environment): Fix
X-Git-Tag: emacs-20.4~454
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e2ac2d94001156abd05fd411498a98ffc130342;p=emacs.git

(set-language-environment): Fix
previous change: don't use dos-codepage when unbound.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 68c91a75aca..cc387c32d47 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1249,7 +1249,9 @@ specifies the character set for the major languages of Western Europe."
 		      (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))