Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(set-language-environment): Fix

Browse source 
previous change: don't use dos-codepage when unbound.
This commit is contained in:
Eli Zaretskii 1999-03-17 11:29:05 +00:00
parent bd40f1f23a
commit 4e2ac2d940
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/international/mule-cmds.el
View file

@ -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))