# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1104410531 0
# Node ID 51f8c6bcc746d6915bf5474bc10ec788464d7ce5
# Parent  34a8622540ad2d236ab0c7074985e014f75f45c7
(basic-save-buffer-1): Set
explicit-buffer-file-coding-system to last-coding-system-used.
(revert-buffer): Pay attention to
explicit-buffer-file-coding-system (not buffer-file-coding-system)
on bind coding-system-for-read.

diff -r 34a8622540ad -r 51f8c6bcc746 lisp/files.el
--- a/lisp/files.el	Thu Dec 30 12:39:58 2004 +0000
+++ b/lisp/files.el	Thu Dec 30 12:42:11 2004 +0000
@@ -3238,7 +3238,8 @@
   (if save-buffer-coding-system
       (let ((coding-system-for-write save-buffer-coding-system))
 	(basic-save-buffer-2))
-    (basic-save-buffer-2)))
+    (basic-save-buffer-2))
+  (setq explicit-buffer-file-coding-system last-coding-system-used))
 
 ;; This returns a value (MODES . BACKUPNAME), like backup-buffer.
 (defun basic-save-buffer-2 ()
@@ -3708,11 +3709,11 @@
 			 (unlock-buffer)))
 		   (widen)
 		   (let ((coding-system-for-read
-			  ;; Auto-saved file shoule be read without
-			  ;; any code conversion.
-			  (if auto-save-p 'emacs-mule-unix
+			  ;; Auto-saved file shoule be read by Emacs'
+			  ;; internal coding.
+			  (if auto-save-p 'auto-save-coding
 			    (or coding-system-for-read
-				buffer-file-coding-system))))
+				explicit-buffer-file-coding-system))))
 		     ;; This force after-insert-file-set-coding
 		     ;; (called from insert-file-contents) to set
 		     ;; buffer-file-coding-system to a proper value.