Mercurial > emacs
changeset 43971:92d4c0ba3ff9
Update copyright.
(shadow-save-buffers-kill-emacs): Also check for active server
processes. Use process-query-on-exit-flag.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sun, 17 Mar 2002 20:32:20 +0000 |
| parents | 5966dbd88eb3 |
| children | 31b6bf22b82b |
| files | lisp/shadowfile.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/shadowfile.el Sun Mar 17 20:30:19 2002 +0000 +++ b/lisp/shadowfile.el Sun Mar 17 20:32:20 2002 +0000 @@ -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 @@ (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)