From d6e8ea6f54806a0e94f637d6ca037c96a4ec4580 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 19 Oct 1997 20:20:15 +0000 Subject: [PATCH] (basic-save-buffer): Set buffer-file-coding-system to the coding system actually used for saving. --- lisp/files.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/files.el b/lisp/files.el index 102f0d3ba4f..ad4e7708ebf 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2181,6 +2181,10 @@ After saving the buffer, run `after-save-hook'." ;; 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 -- 2.39.2