# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 901680875 0
# Node ID 2398b380208ee65b9ce72bbfdc70dd6020a9a87a
# Parent  3306294233074987b0a9e0247281bbef21a319cf
(iso-transl-define-keys): Don't test enable-multibyte-characters; use
the translated characters as specified in alist.

diff -r 330629423307 -r 2398b380208e lisp/international/iso-transl.el
--- a/lisp/international/iso-transl.el	Tue Jul 28 23:10:44 1998 +0000
+++ b/lisp/international/iso-transl.el	Wed Jul 29 02:54:35 1998 +0000
@@ -221,11 +221,7 @@
 ;; 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))))