summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1998-02-07 05:04:28 +0000
committerRichard M. Stallman <rms@gnu.org>1998-02-07 05:04:28 +0000
commitfc20a041e5099cc07d4b923969e9f15758b934f3 (patch)
tree367a7ac29dc71fc86ef6b9cedc8225f7858b1161 /lisp
parent95cc70ec9372d90df03bda8f25c800836327cdc1 (diff)
downloademacs-fc20a041e5099cc07d4b923969e9f15758b934f3.tar.gz
(iso-transl-define-keys): Don't add
nonascii-insert-offset to ASCII characters.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/international/iso-transl.el8
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))))