(iso-transl-define-keys):

Obey quoted-insert-character-offset.

diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el
index 4b39ccea632c2d307e76c2455693b38886208105..f1b6b3a05596a4b14466d5a04aa1d039b28e326d 100644 (file)
--- a/lisp/international/iso-transl.el
+++ b/lisp/international/iso-transl.el
@@ -221,21 +221,26 @@ sequence VECTOR.  (VECTOR is normally one character long.)")
 ;; or `Alt-~ n' or `mute-asciitilde n'.
 (defun iso-transl-define-keys (alist)
   (while alist
-    (define-key iso-transl-ctl-x-8-map (car (car alist)) (cdr (car alist)))
-    (let ((inchar (aref (car (car alist)) 0))
-         (vec (vconcat (car (car alist))))
-         (tail iso-transl-dead-key-alist))
-      (aset vec 0 (logior (aref vec 0) ?\A-\^@))
-      (define-key key-translation-map vec (cdr (car alist)))
-      (define-key isearch-mode-map (vector (aref vec 0)) nil)
-      (while tail
-       (if (eq (car (car tail)) inchar)
-           (let ((deadvec (copy-sequence vec))
-                 (deadkey (cdr (car tail))))
-             (aset deadvec 0 deadkey)
-             (define-key isearch-mode-map (vector deadkey) nil)
-             (define-key key-translation-map deadvec (cdr (car alist)))))
-       (setq tail (cdr tail))))
+    (let ((translated-vec
+          (if enable-multibyte-characters
+              (vector (+ (aref (cdr (car alist)) 0)
+                         quoted-insert-character-offset))
+            (cdr (car alist)))))
+      (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))))
+           (tail iso-transl-dead-key-alist))
+       (aset vec 0 (logior (aref vec 0) ?\A-\^@))
+       (define-key key-translation-map vec translated-vec)
+       (define-key isearch-mode-map (vector (aref vec 0)) nil)
+       (while tail
+         (if (eq (car (car tail)) inchar)
+             (let ((deadvec (copy-sequence vec))
+                   (deadkey (cdr (car tail))))
+               (aset deadvec 0 deadkey)
+               (define-key isearch-mode-map (vector deadkey) nil)
+               (define-key key-translation-map deadvec translated-vec)))
+         (setq tail (cdr tail)))))
     (setq alist (cdr alist))))
 
 (defun iso-transl-set-language (lang)