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