From 1dcbe23901b5c9008fda8233a9674cfeba76f114 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 29 Jul 1998 02:54:35 +0000 Subject: [PATCH] (iso-transl-define-keys): Don't test enable-multibyte-characters; use the translated characters as specified in alist. --- lisp/international/iso-transl.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el index faf268e93c3..c0cbcd50de5 100644 --- a/lisp/international/iso-transl.el +++ b/lisp/international/iso-transl.el @@ -221,11 +221,7 @@ sequence VECTOR. (VECTOR is normally one character long.)") ;; or `Alt-~ n' or `mute-asciitilde n'. (defun iso-transl-define-keys (alist) (while alist - (let ((translated-vec - (let ((val (cdr (car alist)))) - (if (and enable-multibyte-characters (>= (aref val 0) ?\200)) - (vector (+ (aref val 0) nonascii-insert-offset)) - val)))) + (let ((translated-vec (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)))) -- 2.39.2