Commit 5280b595 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(quoted-insert): Allow direct insertion of codes in

the range 0200..0237.  Use unibyte-char-to-multibyte for codes in
the range 0240..0377.
parent 70701902
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment