diff options
Diffstat (limited to 'lisp')
| -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))) |