From 5d83c8ca8fadcb9bcc71da1019a8f9b06abbe087 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sun, 17 Mar 2002 20:32:20 +0000 Subject: Update copyright. (shadow-save-buffers-kill-emacs): Also check for active server processes. Use process-query-on-exit-flag. --- lisp/shadowfile.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'lisp/shadowfile.el') diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el index cc17568581b..56479c0399f 100644 --- a/lisp/shadowfile.el +++ b/lisp/shadowfile.el @@ -1,6 +1,6 @@ ;;; shadowfile.el --- automatic file copying -;; Copyright (C) 1993, 1994, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 2001, 2002 Free Software Foundation, Inc. ;; Author: Boris Goldowsky ;; Keywords: comm files @@ -775,10 +775,8 @@ look for files that have been changed and need to be copied to other systems." (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) -- cgit v1.2.1