Mercurial > emacs
changeset 20859:ef38c9fcbc28
(iso-transl-define-keys): Don't add
nonascii-insert-offset to ASCII characters.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 07 Feb 1998 05:04:28 +0000 |
| parents | efafba146bb5 |
| children | 1432a2b3c44e |
| files | lisp/international/iso-transl.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/iso-transl.el Fri Feb 06 21:56:29 1998 +0000 +++ b/lisp/international/iso-transl.el Sat Feb 07 05:04:28 1998 +0000 @@ -222,10 +222,10 @@ (defun iso-transl-define-keys (alist) (while alist (let ((translated-vec - (if enable-multibyte-characters - (vector (+ (aref (cdr (car alist)) 0) - nonascii-insert-offset)) - (cdr (car alist))))) + (let ((val (cdr (car alist)))) + (if (and enable-multibyte-characters (>= (aref val 0) ?\200)) + (vector (+ (aref val 0) nonascii-insert-offset)) + val)))) (define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec) (let ((inchar (aref (car (car alist)) 0)) (vec (vconcat (car (car alist))))