diff options
| author | Sean Whitton | 2024-10-25 12:43:23 +0800 |
|---|---|---|
| committer | Sean Whitton | 2024-10-25 12:43:23 +0800 |
| commit | df677f65fd1b4f0d16e59d5df9735139d2a667c8 (patch) | |
| tree | 025523e1af288ceee3eac338604ffa971227205c | |
| parent | 9729353ba019d9e7f603515dbf88cbc8807bb120 (diff) | |
| download | emacs-df677f65fd1b4f0d16e59d5df9735139d2a667c8.tar.gz emacs-df677f65fd1b4f0d16e59d5df9735139d2a667c8.zip | |
save-buffers-kill-emacs: Adjust confirmation prompt when restarting
* lisp/files.el (save-buffers-kill-emacs): When restarting, ask
"Really restart Emacs?".
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 114ddc9c259..9c105dbe1a5 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -8490,7 +8490,8 @@ If RESTART, restart Emacs after killing the current Emacs process." | |||
| 8490 | ;; Query the user for other things, perhaps. | 8490 | ;; Query the user for other things, perhaps. |
| 8491 | (run-hook-with-args-until-failure 'kill-emacs-query-functions) | 8491 | (run-hook-with-args-until-failure 'kill-emacs-query-functions) |
| 8492 | (or (null confirm) | 8492 | (or (null confirm) |
| 8493 | (funcall confirm "Really exit Emacs? ")) | 8493 | (funcall confirm (format "Really %s Emacs? " |
| 8494 | (if restart "restart" "exit")))) | ||
| 8494 | (kill-emacs nil restart)))) | 8495 | (kill-emacs nil restart)))) |
| 8495 | 8496 | ||
| 8496 | (defun save-buffers-kill-terminal (&optional arg) | 8497 | (defun save-buffers-kill-terminal (&optional arg) |