# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1010110417 0
# Node ID 83e8bdf0a48b49512c15016f942153adf1b18a34
# Parent  1f605e374c0edd5187f828b1c34c401237fbb062
(basic-save-buffer): Undo previous change.

diff -r 1f605e374c0e -r 83e8bdf0a48b lisp/files.el
--- a/lisp/files.el	Thu Jan 03 23:47:33 2002 +0000
+++ b/lisp/files.el	Fri Jan 04 02:13:37 2002 +0000
@@ -2606,7 +2606,6 @@
 	(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 @@
 		   (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.