[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/shadowfile.el
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/shadowfile.el |
Date: |
Sun, 17 Mar 2002 15:32:20 -0500 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/shadowfile.el,
Kim F. Storm <=