Mercurial > emacs
comparison lisp/international/iso-transl.el @ 22842:2398b380208e
(iso-transl-define-keys): Don't test enable-multibyte-characters; use
the translated characters as specified in alist.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 29 Jul 1998 02:54:35 +0000 |
parents | ef38c9fcbc28 |
children | 2ae7f6e850db |
comparison
equal
deleted
inserted
replaced
22841:330629423307 | 22842:2398b380208e |
---|---|
219 ;; key of the sequence with the corresponding dead key. For example, a | 219 ;; key of the sequence with the corresponding dead key. For example, a |
220 ;; character associated with the string "~n" can be input with `C-x 8 ~ n' | 220 ;; character associated with the string "~n" can be input with `C-x 8 ~ n' |
221 ;; or `Alt-~ n' or `mute-asciitilde n'. | 221 ;; or `Alt-~ n' or `mute-asciitilde n'. |
222 (defun iso-transl-define-keys (alist) | 222 (defun iso-transl-define-keys (alist) |
223 (while alist | 223 (while alist |
224 (let ((translated-vec | 224 (let ((translated-vec (cdr (car alist)))) |
225 (let ((val (cdr (car alist)))) | |
226 (if (and enable-multibyte-characters (>= (aref val 0) ?\200)) | |
227 (vector (+ (aref val 0) nonascii-insert-offset)) | |
228 val)))) | |
229 (define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec) | 225 (define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec) |
230 (let ((inchar (aref (car (car alist)) 0)) | 226 (let ((inchar (aref (car (car alist)) 0)) |
231 (vec (vconcat (car (car alist)))) | 227 (vec (vconcat (car (car alist)))) |
232 (tail iso-transl-dead-key-alist)) | 228 (tail iso-transl-dead-key-alist)) |
233 (aset vec 0 (logior (aref vec 0) ?\A-\^@)) | 229 (aset vec 0 (logior (aref vec 0) ?\A-\^@)) |