# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 915667121 0
# Node ID d6ab8dbc44f252dd3ec729097158d87417c6ad67
# Parent  43344f47a86584b63f5d9f236de506062db1a3a6
(save-buffers-kill-emacs): Show the list of current
processes before prompting to kill them and exit.

diff -r 43344f47a865 -r d6ab8dbc44f2 lisp/files.el
--- a/lisp/files.el	Wed Jan 06 23:55:31 1999 +0000
+++ b/lisp/files.el	Wed Jan 06 23:58:41 1999 +0000
@@ -3267,6 +3267,7 @@
 		    (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)