aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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.)")
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
225 (if enable-multibyte-characters 225 (let ((val (cdr (car alist))))
226 (vector (+ (aref (cdr (car alist)) 0) 226 (if (and enable-multibyte-characters (>= (aref val 0) ?\200))
227 nonascii-insert-offset)) 227 (vector (+ (aref val 0) nonascii-insert-offset))
228 (cdr (car alist))))) 228 val))))
229 (define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec) 229 (define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec)
230 (let ((inchar (aref (car (car alist)) 0)) 230 (let ((inchar (aref (car (car alist)) 0))
231 (vec (vconcat (car (car alist)))) 231 (vec (vconcat (car (car alist))))