diff options
| author | Richard M. Stallman | 1999-01-06 23:58:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-01-06 23:58:41 +0000 |
| commit | 71a3bb4b1ee52b9f92e8f960e6ecfb1e43ab5037 (patch) | |
| tree | 45c45a94de827bfcca986555fcd69c77ba3e80b5 | |
| parent | 41857307a664323538feb4e301dbd9b44020ccbd (diff) | |
| download | emacs-71a3bb4b1ee52b9f92e8f960e6ecfb1e43ab5037.tar.gz emacs-71a3bb4b1ee52b9f92e8f960e6ecfb1e43ab5037.zip | |
(save-buffers-kill-emacs): Show the list of current
processes before prompting to kill them and exit.
| -rw-r--r-- | lisp/files.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index 4698ff0beaf..f4473bf9d7c 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -3267,6 +3267,7 @@ With prefix arg, silently save all file-visiting buffers, then kill." | |||
| 3267 | (setq active t)) | 3267 | (setq active t)) |
| 3268 | (setq processes (cdr processes))) | 3268 | (setq processes (cdr processes))) |
| 3269 | (or (not active) | 3269 | (or (not active) |
| 3270 | (list-processes) | ||
| 3270 | (yes-or-no-p "Active processes exist; kill them and exit anyway? ")))) | 3271 | (yes-or-no-p "Active processes exist; kill them and exit anyway? ")))) |
| 3271 | ;; Query the user for other things, perhaps. | 3272 | ;; Query the user for other things, perhaps. |
| 3272 | (run-hook-with-args-until-failure 'kill-emacs-query-functions) | 3273 | (run-hook-with-args-until-failure 'kill-emacs-query-functions) |