diff options
| author | Kenichi Handa | 2003-05-31 02:00:26 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2003-05-31 02:00:26 +0000 |
| commit | 77619f8e69ff4ab5d75ef5ed31bd0cd483e333a6 (patch) | |
| tree | 1b25c86b1a857d43b4edd746c9b4da4390afeb90 | |
| parent | 356a62243ab2d0201462c23121749c2d9bbf359e (diff) | |
| download | emacs-77619f8e69ff4ab5d75ef5ed31bd0cd483e333a6.tar.gz emacs-77619f8e69ff4ab5d75ef5ed31bd0cd483e333a6.zip | |
(recover-file): Bind coding-system-for-read to
auto-save-coding.
| -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 26235275261..42a29f0b2b7 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -3617,8 +3617,8 @@ non-nil, it is called instead of rereading visited file contents." | |||
| 3617 | (let ((buffer-read-only nil) | 3617 | (let ((buffer-read-only nil) |
| 3618 | ;; Keep the current buffer-file-coding-system. | 3618 | ;; Keep the current buffer-file-coding-system. |
| 3619 | (coding-system buffer-file-coding-system) | 3619 | (coding-system buffer-file-coding-system) |
| 3620 | ;; Auto-saved file shoule be read without any code conversion. | 3620 | ;; Auto-saved file shoule be read with special coding. |
| 3621 | (coding-system-for-read 'emacs-mule-unix)) | 3621 | (coding-system-for-read 'auto-save-coding)) |
| 3622 | (erase-buffer) | 3622 | (erase-buffer) |
| 3623 | (insert-file-contents file-name nil) | 3623 | (insert-file-contents file-name nil) |
| 3624 | (set-buffer-file-coding-system coding-system)) | 3624 | (set-buffer-file-coding-system coding-system)) |