# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 886827868 0
# Node ID ef38c9fcbc283a9af599405a130cbdebe611df38
# Parent  efafba146bb5f53df3b67615bcc7ef6aea82670a
(iso-transl-define-keys): Don't add
nonascii-insert-offset to ASCII characters.

diff -r efafba146bb5 -r ef38c9fcbc28 lisp/international/iso-transl.el
--- a/lisp/international/iso-transl.el	Fri Feb 06 21:56:29 1998 +0000
+++ b/lisp/international/iso-transl.el	Sat Feb 07 05:04:28 1998 +0000
@@ -222,10 +222,10 @@
 (defun iso-transl-define-keys (alist)
   (while alist
     (let ((translated-vec
-	   (if enable-multibyte-characters
-	       (vector (+ (aref (cdr (car alist)) 0)
-			  nonascii-insert-offset))
-	     (cdr (car alist)))))
+	   (let ((val (cdr (car alist))))
+	     (if (and enable-multibyte-characters (>= (aref val 0) ?\200))
+		 (vector (+ (aref val 0) nonascii-insert-offset))
+	       val))))
       (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))))