diff options
| author | Kim F. Storm <[email protected]> | 2002-03-17 20:32:20 +0000 |
|---|---|---|
| committer | Kim F. Storm <[email protected]> | 2002-03-17 20:32:20 +0000 |
| commit | 41c4dfe119edf8cb9f9a259b67344ff42c657c0d (patch) | |
| tree | 2d181e81ae9826f503b3633348625e45c2ada0fb /lisp | |
| parent | 48a4a1fbe06860d88399e1d37bf69ef147537b35 (diff) | |
Update copyright.
(shadow-save-buffers-kill-emacs): Also check for active server
processes. Use process-query-on-exit-flag.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/shadowfile.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el index cc17568581..56479c0399 100644 --- 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 <[email protected]> ;; 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) |