# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1016397019 0
# Node ID 5966dbd88eb37e07528344547130a4b8ad73ac3d
# Parent  927028937c0bc27df85b3300434dcdc348afef16
(save-buffers-kill-emacs): Also check for active server
processes.  Use process-query-on-exit-flag.  Only list processes
which has the query-on-exit flag set in connection with user query.

diff -r 927028937c0b -r 5966dbd88eb3 lisp/files.el
--- a/lisp/files.el	Sun Mar 17 20:28:53 2002 +0000
+++ b/lisp/files.el	Sun Mar 17 20:30:19 2002 +0000
@@ -1,6 +1,6 @@
 ;;; files.el --- file input and output commands for Emacs
 
-;; Copyright (C) 1985, 86, 87, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001
+;; Copyright (C) 1985, 86, 87, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001, 2002
 ;;;   Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -3827,14 +3827,12 @@
 	   (let ((processes (process-list))
 		 active)
 	     (while processes
-	       (and (memq (process-status (car processes)) '(run stop open))
-		    (let ((val (process-kill-without-query (car processes))))
-		      (process-kill-without-query (car processes) val)
-		      val)
+	       (and (memq (process-status (car processes)) '(run stop open listen))
+		    (process-query-on-exit-flag (car processes))
 		    (setq active t))
 	       (setq processes (cdr processes)))
 	     (or (not active)
-		 (list-processes)
+		 (list-processes t)
 		 (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)