diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-04-06 17:13:17 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-04-06 17:13:17 -0400 |
| commit | 7d668f2c1873456ec81ae9a481189fd318b3b5d2 (patch) | |
| tree | 65effb02c8594ab280f973dbec05d1df7264288a /lisp/files.el | |
| parent | e91a96fefdc732b857532bfa827439efe520c47f (diff) | |
| download | emacs-7d668f2c1873456ec81ae9a481189fd318b3b5d2.tar.gz emacs-7d668f2c1873456ec81ae9a481189fd318b3b5d2.tar.bz2 emacs-7d668f2c1873456ec81ae9a481189fd318b3b5d2.zip | |
Reimplement list-processes in Lisp.
* lisp/simple.el: Lisp reimplement of list-processes. Based on an
earlier reimplementation by Leo Liu, but using tabulated-list.el.
(process-menu-mode): New major mode.
(list-processes--refresh, list-processes):
(process-menu-visit-buffer): New functions.
* lisp/files.el (save-buffers-kill-emacs): Don't assume any return
value of list-processes, which is undocumented anyway.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index 6bfb4f00d32..7d8f3ee4503 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -6146,8 +6146,8 @@ With prefix ARG, silently save all file-visiting buffers, then kill." (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? ")))) + (progn (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) (or (null confirm-kill-emacs) |