diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-03-03 01:35:39 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-03-03 01:35:39 +0000 |
| commit | 5280b5956058c1afeaab96f52febcb2641a280bb (patch) | |
| tree | ea87064b5bead2e61b4a7d05d112db693fe035b4 | |
| parent | 70701902816a3f05aaca7e9acb5aa65e337aa122 (diff) | |
| download | emacs-5280b5956058c1afeaab96f52febcb2641a280bb.tar.gz | |
(quoted-insert): Allow direct insertion of codes in
the range 0200..0237. Use unibyte-char-to-multibyte for codes in
the range 0240..0377.
| -rw-r--r-- | lisp/simple.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 944f8e9e0e0..91527bd4e15 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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))) |