From 2d4ef3c0eca77370dbdd50df8d0f7abce847f584 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 14 May 1997 02:25:48 +0000 Subject: [PATCH] (iso-transl-define-keys): Obey quoted-insert-character-offset. --- lisp/international/iso-transl.el | 35 ++++++++++++++++++-------------- 1 file changed, 20 insertions(+), 15 deletions(-) diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el index 4b39ccea632..f1b6b3a0559 100644 --- 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) -- 2.39.2