From xemacs-m  Sat Aug  2 00:57:04 1997
Received: from kurims.kurims.kyoto-u.ac.jp (kurims.kurims.kyoto-u.ac.jp [130.54.16.1])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id AAA08391
	for <xemacs-beta@xemacs.org>; Sat, 2 Aug 1997 00:56:49 -0500 (CDT)
Received: from orion.kurims.kyoto-u.ac.jp (orion.kurims.kyoto-u.ac.jp [130.54.16.5]) by kurims.kurims.kyoto-u.ac.jp (8.8.5/3.4W2) with SMTP id OAA08379 for <xemacs-beta@xemacs.org>; Sat, 2 Aug 1997 14:56:28 +0900 (JST)
Received: (from petersen@localhost) by orion.kurims.kyoto-u.ac.jp (SMI-8.6/3.5Wbeta) id OAA25922; Sat, 2 Aug 1997 14:56:28 +0900
To: XEmacs Beta List <xemacs-beta@xemacs.org>
Subject: [patch] to list active processes when exiting
X-Emacs: 20.3 "Berlin" XEmacs  Lucid (beta15) with mule
Mime-Version: 1.0 (generated by SEMI MIME-Edit 0.86 "Naka-Tsurugi")
Content-Type: text/plain; charset=US-ASCII
From: Jens-Ulrik Holger Petersen <petersen@kurims.kyoto-u.ac.jp>
Date: 02 Aug 1997 14:56:28 +0900
Message-ID: <lbafj12kmr.fsf@orion.kurims.kyoto-u.ac.jp>
Lines: 30

1997-08-02  Jens-Ulrik Holger Petersen  <petersen@kurims.kyoto-u.ac.jp>

	* prim/files.el (save-buffers-kill-emacs):
	If there are active processes, then list them before querying if
	it is ok to exit emacs.


diff -c lisp/prim/files.el~ lisp/prim/files.el
*** lisp/prim/files.el~	Sat Aug  2 14:37:17 1997
--- lisp/prim/files.el	Sat Aug  2 14:37:17 1997
***************
*** 3025,3031 ****
  		    (setq active t))
  	       (setq processes (cdr processes)))
  	     (or (not active)
! 		 (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)))
--- 3025,3034 ----
  		    (setq active t))
  	       (setq processes (cdr processes)))
  	     (or (not active)
! 		 (progn
! 		   (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)))

