(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 4698ff0..f4473bf 100644 (file)
--- 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)