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 |
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) |