(quoted-insert): Allow direct insertion of codes in

the range 0200..0237.  Use unibyte-char-to-multibyte for codes in
the range 0240..0377.

1 files changed, 7 insertions, 7 deletions

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