diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-02-07 05:04:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-02-07 05:04:28 +0000 |
| commit | fc20a041e5099cc07d4b923969e9f15758b934f3 (patch) | |
| tree | 367a7ac29dc71fc86ef6b9cedc8225f7858b1161 | |
| parent | 95cc70ec9372d90df03bda8f25c800836327cdc1 (diff) | |
| download | emacs-fc20a041e5099cc07d4b923969e9f15758b934f3.tar.gz | |
(iso-transl-define-keys): Don't add
nonascii-insert-offset to ASCII characters.
| -rw-r--r-- | lisp/international/iso-transl.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el index 4a37ee72025..faf268e93c3 100644 --- a/lisp/international/iso-transl.el +++ b/lisp/international/iso-transl.el @@ -222,10 +222,10 @@ sequence VECTOR. (VECTOR is normally one character long.)") (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)))) |