(quoted-insert): Comment out code that treats 0240-0377 specially.

diff --git a/lisp/simple.el b/lisp/simple.el
index 4dec38ccdbb967e33c4d48a792910bcb578fc079..cf1a73e98d7a354625219795c5631f7c4ecbaed0 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -687,13 +687,14 @@ useful for editing binary files."
                         (eq overwrite-mode 'overwrite-mode-binary))
                     (read-quoted-char)
                   (read-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)))
+    ;; This used to assume character codes 0240 - 0377 stand for
+    ;; characters in some single-byte character set, and converted them
+    ;; to Emacs characters.  But in 23.1 this feature is deprecated
+    ;; in favor of inserting the corresponding Unicode 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)))