From 4e2ac2d94001156abd05fd411498a98ffc130342 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 17 Mar 1999 11:29:05 +0000 Subject: [PATCH] (set-language-environment): Fix previous change: don't use dos-codepage when unbound. --- lisp/international/mule-cmds.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 2.39.2