From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 22 Jan 1999 21:58:42 +0000 (+0000)
Subject: (clean-buffer-list): do not kill a buffer if it has
X-Git-Tag: emacs-20.4~800
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=83bc1919ba8eaf4a7417e09029d8dec9d8b717c6;p=emacs.git

(clean-buffer-list): do not kill a buffer if it has
a process associated with it.
---

diff --git a/lisp/midnight.el b/lisp/midnight.el
index 1c28c53a982..c70db15ae24 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)