From 004f48da21e0158d1623f7d3bc7a3cf69696884e Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 30 Dec 2004 12:42:11 +0000 Subject: [PATCH] (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. --- lisp/files.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 441a230163e..602a79e2f0b 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3238,7 +3238,8 @@ Before and after saving the buffer, this function runs (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 @@ non-nil, it is called instead of rereading visited file contents." (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. -- 2.39.5