[Emacs-diffs] /srv/bzr/emacs/trunk r103226: Save unmodified buffers when buffer-file-name doesn't exist.

[Bastien Guerry]

------------------------------------------------------------
revno: 103226
committer: Bastien Guerry <address@hidden>
branch nick: trunk
timestamp: Fri 2011-02-11 18:35:37 +0100
message:
  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.
modified:
  lisp/ChangeLog
  lisp/files.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-11 06:19:34 +0000
+++ b/lisp/ChangeLog    2011-02-11 17:35:37 +0000
@@ -1,3 +1,8 @@
+2011-02-11  Bastien Guerry  <address@hidden>
+
+       * files.el (basic-save-buffer): save unmodified buffers when
+       the file pointed by buffer-file-name doesn't exist.
+
 2011-02-11  Deniz Dogan  <address@hidden>
 
        * net/rcirc.el (defun-rcirc-join): Accept multiple channels.

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2011-02-01 21:37:12 +0000
+++ b/lisp/files.el     2011-02-11 17:35:37 +0000
@@ -4309,7 +4309,11 @@
     ;; 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.