diff options
| author | Chong Yidong | 2008-12-09 23:43:11 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-12-09 23:43:11 +0000 |
| commit | be9acc262964098b774110b7fb2f0228ffd74863 (patch) | |
| tree | 69caa71d8b418d3205a3e7b83f2e6a46015e3a63 | |
| parent | 39af3de2c134e5b5d9068f6fad20c4cdf57d38f6 (diff) | |
| download | emacs-be9acc262964098b774110b7fb2f0228ffd74863.tar.gz emacs-be9acc262964098b774110b7fb2f0228ffd74863.zip | |
(save-some-buffers): At each map-y-or-n-p iteration,
check whether the buffer is still alive.
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index ba281a908a1..0e303805d0c 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -4351,7 +4351,10 @@ change the additional actions you can take on files." | |||
| 4351 | (setq files-done | 4351 | (setq files-done |
| 4352 | (map-y-or-n-p | 4352 | (map-y-or-n-p |
| 4353 | (lambda (buffer) | 4353 | (lambda (buffer) |
| 4354 | (and (buffer-modified-p buffer) | 4354 | ;; Note that killing some buffers may kill others via |
| 4355 | ;; hooks (e.g. Rmail and its viewing buffer). | ||
| 4356 | (and (buffer-live-p buffer) | ||
| 4357 | (buffer-modified-p buffer) | ||
| 4355 | (not (buffer-base-buffer buffer)) | 4358 | (not (buffer-base-buffer buffer)) |
| 4356 | (or | 4359 | (or |
| 4357 | (buffer-file-name buffer) | 4360 | (buffer-file-name buffer) |