[Emacs-diffs] Changes to emacs/lisp/shadowfile.el

[Kim F. Storm]

Index: emacs/lisp/shadowfile.el
diff -c emacs/lisp/shadowfile.el:1.17 emacs/lisp/shadowfile.el:1.18
*** emacs/lisp/shadowfile.el:1.17       Mon Jul 16 08:22:59 2001
--- emacs/lisp/shadowfile.el    Sun Mar 17 15:32:20 2002
***************
*** 1,6 ****
  ;;; shadowfile.el --- automatic file copying
  
! ;; Copyright (C) 1993, 1994, 2001 Free Software Foundation, Inc.
  
  ;; Author: Boris Goldowsky <address@hidden>
  ;; Keywords: comm files
--- 1,6 ----
  ;;; shadowfile.el --- automatic file copying
  
! ;; Copyright (C) 1993, 1994, 2001, 2002 Free Software Foundation, Inc.
  
  ;; Author: Boris Goldowsky <address@hidden>
  ;; Keywords: comm files
***************
*** 775,784 ****
           (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)
                    (setq active t))
               (setq processes (cdr processes)))
             (or (not active)
--- 775,782 ----
           (let ((processes (process-list))
                 active)
             (while processes
!              (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)