From: Kenichi Handa <handa@m17n.org>
Date: Tue, 3 Mar 1998 01:35:39 +0000 (+0000)
Subject: (quoted-insert): Allow direct insertion of codes in
X-Git-Tag: emacs-20.3~2034
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5280b5956058c1afeaab96f52febcb2641a280bb;p=emacs.git

(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 --git a/lisp/simple.el b/lisp/simple.el
index 944f8e9e0e0..91527bd4e15 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -178,13 +178,13 @@ useful for editing binary files."
 		      (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)))