procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juri Linkov 2008-07-30 16:38:29 +00:00
parent 39dde873c7
commit 0e3269e58a
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/simple.el
View file

@ -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)))