# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 877292415 0
# Node ID c8448efca727ac717898622c4f4a062110f37225
# Parent  2b49d1c59b83000c13f9b7a2dd099c4316147bd3
(basic-save-buffer): Set buffer-file-coding-system to
the coding system actually used for saving.

diff -r 2b49d1c59b83 -r c8448efca727 lisp/files.el
--- a/lisp/files.el	Sun Oct 19 20:12:15 1997 +0000
+++ b/lisp/files.el	Sun Oct 19 20:20:15 1997 +0000
@@ -2181,6 +2181,10 @@
 		;; If a hook returned t, file is already "written".
 		;; Otherwise, write it the usual way now.
 		(setq setmodes (basic-save-buffer-1)))
+	    ;; Now we have saved the current buffer.  Let's make sure
+	    ;; that buffer-file-coding-system is fixed to what
+	    ;; actually used for saving by binding it locally.
+	    (setq buffer-file-coding-system last-coding-system-used)
 	    (setq buffer-file-number
 		  (nthcdr 10 (file-attributes buffer-file-name)))
 	    (if setmodes