Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 12:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(set-language-environment): Don't use

Browse source 
cpNNN-nonascii-translation-table if it is unbound.
This commit is contained in:
Eli Zaretskii 1999-03-16 14:18:40 +00:00
parent e1b674a138
commit ec241f58e0
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1247,19 +1247,16 @@ specifies the character set for the major languages of Western Europe."
(setq input-method-history
(cons input-method
(delete input-method input-method-history))))))
(let ((nonascii (get-language-info language-name 'nonascii-translation)))
(let ((nonascii (get-language-info language-name 'nonascii-translation))
(dos-table
(intern (concat "cp" dos-codepage "-nonascii-translation-table"))))
(cond
((char-table-p nonascii)
(setq nonascii-translation-table nonascii))
((eq window-system 'pc)
((and (eq window-system 'pc) (boundp dos-table))
;; DOS terminals' default is to use a special non-ASCII translation
;; table as appropriate for the installed codepage.
(setq
nonascii-translation-table (symbol-value
(intern
(concat "cp"
dos-codepage
"-nonascii-translation-table")))))
(setq nonascii-translation-table (symbol-value dos-table)))
((charsetp nonascii)
(setq nonascii-insert-offset (- (make-char nonascii) 128)))))