diff options
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 4 insertions, 0 deletions
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 |