Mercurial > emacs
changeset 97128:716070916653
(quoted-insert): Comment out code that treats 0240-0377 specially.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Wed, 30 Jul 2008 16:38:29 +0000 |
| parents | 6c272804a08c |
| children | f48704406cca |
| files | lisp/simple.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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)))