mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-21 20:37:38 +00:00
(quoted-insert): Allow direct insertion of codes in
the range 0200..0237. Use unibyte-char-to-multibyte for codes in the range 0240..0377.
This commit is contained in:
parent
7070190281
commit
5280b59560
1 changed files with 7 additions and 7 deletions
|
|
@ -178,13 +178,13 @@ useful for editing binary files."
|
|||
(eq overwrite-mode 'overwrite-mode-binary))
|
||||
(read-quoted-char)
|
||||
(read-char))))
|
||||
;; Assume character codes 0200 - 0377 stand for
|
||||
;; European characters in Latin-1, and convert them
|
||||
;; to Emacs characters.
|
||||
(and enable-multibyte-characters
|
||||
(>= char ?\200)
|
||||
(<= char ?\377)
|
||||
(setq char (+ nonascii-insert-offset 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)))
|
||||
(if (> arg 0)
|
||||
(if (eq overwrite-mode 'overwrite-mode-binary)
|
||||
(delete-char arg)))
|
||||
|
|
|
|||
Loading…
Reference in a new issue