diff options
| author | Richard M. Stallman <[email protected]> | 2002-01-04 02:13:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2002-01-04 02:13:37 +0000 |
| commit | 0ba5894bf19b4f496020c386b9ea8cd098cdbefc (patch) | |
| tree | d9c37f7d18e873008edb048439bf0dd3be6c780a /lisp | |
| parent | 5860ba6e6c0b4f9d0aa953beeddc68f02a23c5a8 (diff) | |
(basic-save-buffer): Undo previous change.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lisp/files.el b/lisp/files.el index a83bf037b1..ff47462f9c 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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. |