Mercurial > emacs

comparison lisp/international/mule-cmds.el @ 24491:45b77df0b5ac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-language-environment): Don't use cpNNN-nonascii-translation-table if it is unbound.
author Eli Zaretskii <eliz@gnu.org>
date Tue, 16 Mar 1999 14:18:40 +0000
parents 8a8615132482
children 14e1df6e60a8
comparison
equal deleted inserted replaced
24490:7a5f7af21c27 24491:45b77df0b5ac
1245 (setq default-input-method input-method) 1245 (setq default-input-method input-method)
1246 (if input-method-history 1246 (if input-method-history
1247 (setq input-method-history 1247 (setq input-method-history
1248 (cons input-method 1248 (cons input-method
1249 (delete input-method input-method-history)))))) 1249 (delete input-method input-method-history))))))
1250 (let ((nonascii (get-language-info language-name 'nonascii-translation))) 1250 (let ((nonascii (get-language-info language-name 'nonascii-translation))
1251 (dos-table
1252 (intern (concat "cp" dos-codepage "-nonascii-translation-table"))))
1251 (cond 1253 (cond
1252 ((char-table-p nonascii) 1254 ((char-table-p nonascii)
1253 (setq nonascii-translation-table nonascii)) 1255 (setq nonascii-translation-table nonascii))
1254 ((eq window-system 'pc) 1256 ((and (eq window-system 'pc) (boundp dos-table))
1255 ;; DOS terminals' default is to use a special non-ASCII translation 1257 ;; DOS terminals' default is to use a special non-ASCII translation
1256 ;; table as appropriate for the installed codepage. 1258 ;; table as appropriate for the installed codepage.
1257 (setq 1259 (setq nonascii-translation-table (symbol-value dos-table)))
1258 nonascii-translation-table (symbol-value
1259 (intern
1260 (concat "cp"
1261 dos-codepage
1262 "-nonascii-translation-table")))))
1263 ((charsetp nonascii) 1260 ((charsetp nonascii)
1264 (setq nonascii-insert-offset (- (make-char nonascii) 128))))) 1261 (setq nonascii-insert-offset (- (make-char nonascii) 128)))))
1265 1262
1266 (setq charset-origin-alist 1263 (setq charset-origin-alist
1267 (get-language-info language-name 'charset-origin-alist)) 1264 (get-language-info language-name 'charset-origin-alist))