From 0e3269e58aeaaf7e72403144226ed5dfc094c865 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 30 Jul 2008 16:38:29 +0000 Subject: [PATCH] (quoted-insert): Comment out code that treats 0240-0377 specially. --- lisp/simple.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) 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))) -- 2.39.2