/[emacs]/emacs/lisp/shadowfile.el
ViewVC logotype

Diff of /emacs/lisp/shadowfile.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by pj, Mon Jul 16 12:22:59 2001 UTC revision 1.18 by kfstorm, Sun Mar 17 20:32:20 2002 UTC
# Line 1  Line 1 
1  ;;; shadowfile.el --- automatic file copying  ;;; shadowfile.el --- automatic file copying
2    
3  ;; Copyright (C) 1993, 1994, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1993, 1994, 2001, 2002 Free Software Foundation, Inc.
4    
5  ;; Author: Boris Goldowsky <boris@gnu.org>  ;; Author: Boris Goldowsky <boris@gnu.org>
6  ;; Keywords: comm files  ;; Keywords: comm files
# Line 775  look for files that have been changed an Line 775  look for files that have been changed an
775             (let ((processes (process-list))             (let ((processes (process-list))
776                   active)                   active)
777               (while processes               (while processes
778                 (and (memq (process-status (car processes)) '(run stop open))                 (and (memq (process-status (car processes)) '(run stop open listen))
779                      (let ((val (process-kill-without-query (car processes))))                      (process-query-on-exit-flag (car processes))
                       (process-kill-without-query (car processes) val)  
                       val)  
780                      (setq active t))                      (setq active t))
781                 (setq processes (cdr processes)))                 (setq processes (cdr processes)))
782               (or (not active)               (or (not active)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26