mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(basic-save-buffer): Set buffer-file-coding-system to

Browse Source 
the coding system actually used for saving.
This commit is contained in:
Karl Heuer 1997-10-19 20:20:15 +00:00
parent 4bb0b3adac
commit d6e8ea6f54
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/files.el
View File

@ -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