# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1217435909 0
# Node ID 7160709166536389b1c725949597c552bc1bcfa7
# Parent  6c272804a08c507e2e8d52fbbe07bbb094bea58b
(quoted-insert): Comment out code that treats 0240-0377 specially.

diff -r 6c272804a08c -r 716070916653 lisp/simple.el
--- a/lisp/simple.el	Wed Jul 30 15:33:58 2008 +0000
+++ b/lisp/simple.el	Wed Jul 30 16:38:29 2008 +0000
@@ -687,13 +687,14 @@
 			 (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)))