[Emacs-diffs] Changes to emacs/lisp/files.el

[Kim F. Storm]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.553 emacs/lisp/files.el:1.554
*** emacs/lisp/files.el:1.553   Fri Mar 15 21:25:56 2002
--- emacs/lisp/files.el Sun Mar 17 15:30:19 2002
***************
*** 1,6 ****
  ;;; files.el --- file input and output commands for Emacs
  
! ;; Copyright (C) 1985, 86, 87, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001
  ;;;   Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
--- 1,6 ----
  ;;; files.el --- file input and output commands for Emacs
  
! ;; Copyright (C) 1985, 86, 87, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001, 
2002
  ;;;   Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
***************
*** 3827,3840 ****
           (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)
!                (list-processes)
                 (yes-or-no-p "Active processes exist; kill them and exit 
anyway? "))))
         ;; Query the user for other things, perhaps.
         (run-hook-with-args-until-failure 'kill-emacs-query-functions)
--- 3827,3838 ----
           (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)
!                (list-processes t)
                 (yes-or-no-p "Active processes exist; kill them and exit 
anyway? "))))
         ;; Query the user for other things, perhaps.
         (run-hook-with-args-until-failure 'kill-emacs-query-functions)