(basic-save-buffer-1): If writing temp file fails

or a precious file, restore the old visited file modtime.

diff --git a/lisp/files.el b/lisp/files.el
index bfc4abafa3e9bf3840756b70e865c1479a275997..b26da5dde775e27e6fee355e26276f2f98630261 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1668,7 +1668,8 @@ the last real save, but optional arg FORCE non-nil means delete anyway."
          ;; This requires write access to the containing dir,
          ;; which is why we don't try it if we don't have that access.
          (let ((realname buffer-file-name)
-               tempname temp nogood i succeed)
+               tempname temp nogood i succeed
+               (old-modtime (visited-file-modtime)))
            (setq i 0)
            (setq nogood t)
            ;; Find the temporary name to write under.
@@ -1683,7 +1684,10 @@ the last real save, but optional arg FORCE non-nil means delete anyway."
                       (setq succeed t))
              ;; If writing the temp file fails,
              ;; delete the temp file.
-             (or succeed (delete-file tempname)))
+             (or succeed 
+                 (progn
+                   (delete-file tempname)
+                   (set-visited-file-modtime old-modtime))))
            ;; Since we have created an entirely new file
            ;; and renamed it, make sure it gets the
            ;; right permission bits set.