# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 927511767 0
# Node ID ece1961bd955c07324748c026a1ea95e3bcef0e2
# Parent  c9362ef0817ae26e30c104742c7f4f0bfd0fc23c
(recover-file): Recover buffer-file-coding-system.

diff -r c9362ef0817a -r ece1961bd955 lisp/files.el
--- a/lisp/files.el	Sun May 23 21:46:08 1999 +0000
+++ b/lisp/files.el	Mon May 24 02:09:27 1999 +0000
@@ -2807,10 +2807,13 @@
 	     (yes-or-no-p (format "Recover auto save file %s? " file-name)))
 	   (switch-to-buffer (find-file-noselect file t))
 	   (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.
 		 (coding-system-for-read 'no-conversion))
 	     (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))
 	  (t (error "Recover-file cancelled")))))