Mercurial > emacs
changeset 21040:290a1c16d25d
(quoted-insert): Allow direct insertion of codes in
the range 0200..0237. Use unibyte-char-to-multibyte for codes in
the range 0240..0377.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 03 Mar 1998 01:35:39 +0000 |
| parents | 582324329262 |
| children | a7526e76aac9 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Tue Mar 03 01:35:39 1998 +0000 +++ b/lisp/simple.el Tue Mar 03 01:35:39 1998 +0000 @@ -178,13 +178,13 @@ (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)))