--- a/lisp/prim/files.el	Mon Aug 13 09:52:21 2007 +0200
+++ b/lisp/prim/files.el	Mon Aug 13 09:53:19 2007 +0200
@@ -3024,8 +3024,14 @@
 		      val)
 		    (setq active t))
 	       (setq processes (cdr processes)))
-	     (or (not active)
-		 (yes-or-no-p "Active processes exist; kill them and exit anyway? "))))
+	     (or
+	      (not active)
+	      (save-excursion
+		(save-window-excursion
+		  (delete-other-windows)
+		  (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)
        (kill-emacs)))