# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 888888939 0
# Node ID 290a1c16d25decd4dc9a937393fee6564bf8ad53
# Parent  58232432926298b2b0043e4655c0db879639884e
(quoted-insert): Allow direct insertion of codes in
the range 0200..0237.  Use unibyte-char-to-multibyte for codes in
the range 0240..0377.

diff -r 582324329262 -r 290a1c16d25d lisp/simple.el
--- a/lisp/simple.el	Tue Mar 03 01:35:39 1998 +0000
+++ b/lisp/simple.el	Tue Mar 03 01:35:39 1998 +0000
@@ -178,13 +178,13 @@
 		      (eq overwrite-mode 'overwrite-mode-binary))
 		  (read-quoted-char)
 		(read-char))))
-    ;; Assume character codes 0200 - 0377 stand for 
-    ;; European characters in Latin-1, and convert them
-    ;; to Emacs characters.
-    (and enable-multibyte-characters
-	 (>= char ?\200)
-	 (<= char ?\377)
-	 (setq char (+ nonascii-insert-offset char)))
+    ;; Assume character codes 0240 - 0377 stand for characters in some
+    ;; single-byte character set, and convert them to Emacs
+    ;; characters.
+    (if (and enable-multibyte-characters
+	     (>= char ?\240)
+	     (<= char ?\377))
+	(setq char (unibyte-char-to-multibyte char)))
     (if (> arg 0)
 	(if (eq overwrite-mode 'overwrite-mode-binary)
 	    (delete-char arg)))