diff options
| author | Karl Heuer <[email protected]> | 1999-01-22 21:58:42 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1999-01-22 21:58:42 +0000 |
| commit | 83bc1919ba8eaf4a7417e09029d8dec9d8b717c6 (patch) | |
| tree | ba2ab9de7f05f907cf0fd1772b971b2862be41f9 /lisp | |
| parent | ccf89641df04d50bf9ae6e21beb1b094b4b77ab2 (diff) | |
(clean-buffer-list): do not kill a buffer if it has
a process associated with it.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/midnight.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/midnight.el b/lisp/midnight.el index 1c28c53a98..c70db15ae2 100644 --- a/lisp/midnight.el +++ b/lisp/midnight.el @@ -178,8 +178,8 @@ the current date/time, buffer name, how many seconds ago it was displayed (can be nil if the buffer was never displayed) and its lifetime, i.e., its \"age\" when it will be purged." (interactive) - (let ((tm (midnight-float-time)) bts (ts (format-time-string "%Y-%m-%d %T")) bn - (bufs (buffer-list)) buf delay cbld) + (let ((tm (midnight-float-time)) bts (ts (format-time-string "%Y-%m-%d %T")) + (bufs (buffer-list)) buf delay cbld bn) (while (setq buf (pop bufs)) (setq bts (midnight-buffer-display-time buf) bn (buffer-name buf) delay (if bts (- tm bts) 0) cbld (clean-buffer-list-delay bn)) @@ -188,6 +188,7 @@ lifetime, i.e., its \"age\" when it will be purged." 'string-match) (midnight-find bn clean-buffer-list-kill-never-buffer-names 'string-equal) + (get-buffer-process buf) (and (buffer-file-name buf) (buffer-modified-p buf)) (get-buffer-window buf 'visible) (< delay cbld)) (message "[%s] killing `%s'" ts bn) |