diff options
| author | Dave Love | 2002-05-27 14:52:32 +0000 |
|---|---|---|
| committer | Dave Love | 2002-05-27 14:52:32 +0000 |
| commit | 41db09b7a3bd18812c87b51ef07220d9018e70eb (patch) | |
| tree | 8c6739244758e27472e583083be816488e8dc7b1 | |
| parent | 7f04a67e3bebe7871f01cb446f3af7d5aacb84d3 (diff) | |
| download | emacs-41db09b7a3bd18812c87b51ef07220d9018e70eb.tar.gz emacs-41db09b7a3bd18812c87b51ef07220d9018e70eb.zip | |
(revert-buffer, recover-file): Use utf-8-emacs coding
system, not emacs-mule.
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index e748b6069ce..d1dedf0e3a4 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -3071,7 +3071,7 @@ non-nil, it is called instead of rereading visited file contents." | |||
| 3071 | (let ((coding-system-for-read | 3071 | (let ((coding-system-for-read |
| 3072 | ;; Auto-saved file shoule be read without | 3072 | ;; Auto-saved file shoule be read without |
| 3073 | ;; any code conversion. | 3073 | ;; any code conversion. |
| 3074 | (if auto-save-p 'emacs-mule-unix | 3074 | (if auto-save-p 'utf-8-emacs-unix |
| 3075 | coding-system-for-read))) | 3075 | coding-system-for-read))) |
| 3076 | ;; Note that this preserves point in an intelligent way. | 3076 | ;; Note that this preserves point in an intelligent way. |
| 3077 | (insert-file-contents file-name (not auto-save-p) | 3077 | (insert-file-contents file-name (not auto-save-p) |
| @@ -3128,7 +3128,7 @@ non-nil, it is called instead of rereading visited file contents." | |||
| 3128 | ;; Keep the current buffer-file-coding-system. | 3128 | ;; Keep the current buffer-file-coding-system. |
| 3129 | (coding-system buffer-file-coding-system) | 3129 | (coding-system buffer-file-coding-system) |
| 3130 | ;; Auto-saved file shoule be read without any code conversion. | 3130 | ;; Auto-saved file shoule be read without any code conversion. |
| 3131 | (coding-system-for-read 'emacs-mule-unix)) | 3131 | (coding-system-for-read 'utf-8-emacs-unix)) |
| 3132 | (erase-buffer) | 3132 | (erase-buffer) |
| 3133 | (insert-file-contents file-name nil) | 3133 | (insert-file-contents file-name nil) |
| 3134 | (set-buffer-file-coding-system coding-system)) | 3134 | (set-buffer-file-coding-system coding-system)) |