diff options
| author | Kenichi Handa | 2006-10-30 07:40:14 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2006-10-30 07:40:14 +0000 |
| commit | e1ee3b548bd498b8d7dbd251ea98158dbcf481dc (patch) | |
| tree | f9131ff0ad81e7735c9a446540439325dd5db025 | |
| parent | 7acc677bf15db317dcf09cfb003face4fdcd2c4e (diff) | |
| download | emacs-e1ee3b548bd498b8d7dbd251ea98158dbcf481dc.tar.gz emacs-e1ee3b548bd498b8d7dbd251ea98158dbcf481dc.zip | |
(revert-buffer): If a unibyte buffer is being reverted
with a coding system for multibyte, set buffer multibyte before
calling insert-file-contents.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/files.el | 9 |
2 files changed, 15 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index acb3e5c3a99..ad942083566 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2006-10-30 Kenichi Handa <handa@m17n.org> | ||
| 2 | |||
| 3 | * files.el (revert-buffer): If a unibyte buffer is being reverted | ||
| 4 | with a coding system for multibyte, set buffer multibyte before | ||
| 5 | calling insert-file-contents. | ||
| 6 | |||
| 1 | 2006-10-30 Stefan Monnier <monnier@iro.umontreal.ca> | 7 | 2006-10-30 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 8 | ||
| 3 | * server.el (server-select-display): Use a dummy buffer to detect when | 9 | * server.el (server-select-display): Use a dummy buffer to detect when |
diff --git a/lisp/files.el b/lisp/files.el index 4b746225f60..a78d798f38b 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -4094,6 +4094,15 @@ non-nil, it is called instead of rereading visited file contents." | |||
| 4094 | (if auto-save-p 'auto-save-coding | 4094 | (if auto-save-p 'auto-save-coding |
| 4095 | (or coding-system-for-read | 4095 | (or coding-system-for-read |
| 4096 | buffer-file-coding-system-explicit)))) | 4096 | buffer-file-coding-system-explicit)))) |
| 4097 | (if (and (not enable-multibyte-characters) | ||
| 4098 | (not (memq (coding-system-base | ||
| 4099 | coding-system-for-read) | ||
| 4100 | '(no-conversion raw-text)))) | ||
| 4101 | ;; As a coding system suitable for multibyte | ||
| 4102 | ;; buffer is specified, make the current | ||
| 4103 | ;; buffer multibyte. | ||
| 4104 | (set-buffer-multibyte t)) | ||
| 4105 | |||
| 4097 | ;; This force after-insert-file-set-coding | 4106 | ;; This force after-insert-file-set-coding |
| 4098 | ;; (called from insert-file-contents) to set | 4107 | ;; (called from insert-file-contents) to set |
| 4099 | ;; buffer-file-coding-system to a proper value. | 4108 | ;; buffer-file-coding-system to a proper value. |