From: Kim F. Storm Date: Sun, 17 Mar 2002 20:32:20 +0000 (+0000) Subject: Update copyright. X-Git-Tag: ttn-vms-21-2-B4~16125 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41c4dfe119edf8cb9f9a259b67344ff42c657c0d;p=emacs.git Update copyright. (shadow-save-buffers-kill-emacs): Also check for active server processes. Use process-query-on-exit-flag. --- 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)