Skip to content

GitLab

Commit 1e87edf5 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(recover-file): Recover buffer-file-coding-system.

parent 596ff2ee
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 1 deletion
lisp/files.el
View file @ 1e87edf5
...@@ -2807,10 +2807,13 @@ non-nil, it is called instead of rereading visited file contents." ...@@ -2807,10 +2807,13 @@ non-nil, it is called instead of rereading visited file contents."
(yes-or-no-p (format "Recover auto save file %s? " file-name))) (yes-or-no-p (format "Recover auto save file %s? " file-name)))
(switch-to-buffer (find-file-noselect file t)) (switch-to-buffer (find-file-noselect file t))
(let ((buffer-read-only nil) (let ((buffer-read-only nil)
;; Keep the current buffer-file-coding-system.
(coding-system buffer-file-coding-system)
;; Auto-saved file shoule be read without any code conversion. ;; Auto-saved file shoule be read without any code conversion.
(coding-system-for-read 'no-conversion)) (coding-system-for-read 'no-conversion))
(erase-buffer) (erase-buffer)
(insert-file-contents file-name nil)) (insert-file-contents file-name nil)
(set-buffer-file-coding-system coding-system))
(after-find-file nil nil t)) (after-find-file nil nil t))
(t (error "Recover-file cancelled"))))) (t (error "Recover-file cancelled")))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment