From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 6 Jan 1999 23:58:41 +0000 (+0000)
Subject: (save-buffers-kill-emacs): Show the list of current
X-Git-Tag: emacs-20.4~932
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=71a3bb4b1ee52b9f92e8f960e6ecfb1e43ab5037;p=emacs.git

(save-buffers-kill-emacs): Show the list of current
processes before prompting to kill them and exit.
---

diff --git a/lisp/files.el b/lisp/files.el
index 4698ff0beaf..f4473bf9d7c 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3267,6 +3267,7 @@ With prefix arg, silently save all file-visiting buffers, then kill."
 		    (setq active t))
 	       (setq processes (cdr processes)))
 	     (or (not active)
+		 (list-processes)
 		 (yes-or-no-p "Active processes exist; kill them and exit anyway? "))))
        ;; Query the user for other things, perhaps.
        (run-hook-with-args-until-failure 'kill-emacs-query-functions)