[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103226: Save unmodified buffers when
From: |
Bastien Guerry |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103226: Save unmodified buffers when buffer-file-name doesn't exist. |
Date: |
Fri, 11 Feb 2011 18:35:37 +0100 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103226: Save unmodified buffers when buffer-file-name doesn't exist.,
Bastien Guerry <=