Commit 4e2ac2d9 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(set-language-environment): Fix

previous change: don't use dos-codepage when unbound.
parent bd40f1f2
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment