*** empty log message ***

[gnu-emacs] / lisp / shadowfile.el

diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index 4fc3243b0d96ab04268c16ecf73813c12199d242..56479c0399f613d50cc773302b05ca54671b13f2 100644 (file)
--- 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 <boris@gnu.org>
 ;; 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)
@@ -842,4 +840,3 @@ look for files that have been changed and need to be copied to other systems."
 (provide 'shadowfile)
 
 ;;; shadowfile.el ends here
-