diff options
| -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." | |||
| 178 | (eq overwrite-mode 'overwrite-mode-binary)) | 178 | (eq overwrite-mode 'overwrite-mode-binary)) |
| 179 | (read-quoted-char) | 179 | (read-quoted-char) |
| 180 | (read-char)))) | 180 | (read-char)))) |
| 181 | ;; Assume character codes 0200 - 0377 stand for | 181 | ;; Assume character codes 0240 - 0377 stand for characters in some |
| 182 | ;; European characters in Latin-1, and convert them | 182 | ;; single-byte character set, and convert them to Emacs |
| 183 | ;; to Emacs characters. | 183 | ;; characters. |
| 184 | (and enable-multibyte-characters | 184 | (if (and enable-multibyte-characters |
| 185 | (>= char ?\200) | 185 | (>= char ?\240) |
| 186 | (<= char ?\377) | 186 | (<= char ?\377)) |
| 187 | (setq char (+ nonascii-insert-offset char))) | 187 | (setq char (unibyte-char-to-multibyte char))) |
| 188 | (if (> arg 0) | 188 | (if (> arg 0) |
| 189 | (if (eq overwrite-mode 'overwrite-mode-binary) | 189 | (if (eq overwrite-mode 'overwrite-mode-binary) |
| 190 | (delete-char arg))) | 190 | (delete-char arg))) |