diff options
| author | Kim F. Storm <storm@cua.dk> | 2002-03-17 20:32:20 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2002-03-17 20:32:20 +0000 |
| commit | 5d83c8ca8fadcb9bcc71da1019a8f9b06abbe087 (patch) | |
| tree | ae9892690132308dcc5e1657916ccac92c9699c4 /lisp | |
| parent | 3ce6881b4c4a7f09deac701e9fbd2e1496ec99b6 (diff) | |
| download | emacs-5d83c8ca8fadcb9bcc71da1019a8f9b06abbe087.tar.gz | |
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 cc17568581b..56479c0399f 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 <boris@gnu.org> ;; 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) |