Save unmodified buffers when buffer-file-name doesn't exist.

* files.el (basic-save-buffer): save unmodified buffers when
the file pointed by buffer-file-name doesn't exist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b3735e37289980890d29569f1ee07ebec6089c30..043c8bebea66d0bda9fd0265aaf30490a315bd75 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-11  Bastien Guerry  <bzg@altern.org>
+
+       * files.el (basic-save-buffer): save unmodified buffers when
+       the file pointed by buffer-file-name doesn't exist.
+
 2011-02-11  Deniz Dogan  <deniz.a.m.dogan@gmail.com>
 
        * net/rcirc.el (defun-rcirc-join): Accept multiple channels.

diff --git a/lisp/files.el b/lisp/files.el
index 8b42eaaddb8342dca9055ce2df147aec92fd3851..43b31cb0a7ad2491b9f973a1378d52222c9e34c4 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4309,7 +4309,11 @@ Before and after saving the buffer, this function runs
     ;; In an indirect buffer, save its base buffer instead.
     (if (buffer-base-buffer)
        (set-buffer (buffer-base-buffer)))
-    (if (buffer-modified-p)
+    (if (or (buffer-modified-p)
+           ;; handle the case when no modification has been made but
+           ;; the file disappeared since visited
+           (and buffer-file-name
+                (not (file-exists-p buffer-file-name))))
        (let ((recent-save (recent-auto-save-p))
              setmodes)
          ;; If buffer has no file name, ask user for one.