mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(basic-save-buffer): Undo previous change.

Browse Source
This commit is contained in:
Richard M. Stallman 2002-01-04 02:13:37 +00:00
parent 5860ba6e6c
commit 0ba5894bf1
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/files.el
View File

@ -2606,7 +2606,6 @@ After saving the buffer, this function runs `after-save-hook'."
(set-buffer (buffer-base-buffer)))
(if (buffer-modified-p)
(let ((recent-save (recent-auto-save-p))
msg
setmodes tempsetmodes)
;; On VMS, rename file and buffer to get rid of version number.
(if (and (eq system-type 'vax-vms)
@ -2653,18 +2652,14 @@ After saving the buffer, this function runs `after-save-hook'."
(save-excursion
(goto-char (point-max))
(insert ?\n))))
(setq msg (current-message))
;; Support VC version backups.
(vc-before-save)
(or (run-hook-with-args-until-success 'write-contents-hooks)
(run-hook-with-args-until-success 'local-write-file-hooks)
(run-hook-with-args-until-success 'write-file-hooks)
(progn
(unless (equal msg (current-message))
(sit-for 2))
;; If a hook returned t, file is already "written".
;; Otherwise, write it the usual way now.
(setq setmodes (basic-save-buffer-1))))
;; 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.