From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 29 Jul 1998 02:54:35 +0000 (+0000)
Subject: (iso-transl-define-keys): Don't test enable-multibyte-characters; use
X-Git-Tag: emacs-20.3~237
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1dcbe23901b5c9008fda8233a9674cfeba76f114;p=emacs.git

(iso-transl-define-keys): Don't test enable-multibyte-characters; use
the translated characters as specified in alist.
---

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))))