From: Juri Linkov <juri@jurta.org>
Date: Wed, 30 Jul 2008 16:38:29 +0000 (+0000)
Subject: (quoted-insert): Comment out code that treats 0240-0377 specially.
X-Git-Tag: emacs-pretest-23.0.90~3781
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e3269e58aeaaf7e72403144226ed5dfc094c865;p=emacs.git

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

diff --git a/lisp/simple.el b/lisp/simple.el
index 4dec38ccdbb..cf1a73e98d7 100644
--- 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)))