Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-23 19:47:58 +01:00
Code Issues Projects Releases Packages Wiki Activity

Improve confirmation prompts

Browse source 
* exwm.el (exwm-restart, exwm--confirm-kill-emacs): Improve
confirmation prompts.
This commit is contained in:
Adrián Medraño Calvo 2021-12-09 00:00:00 +00:00
parent ca7623349e
commit d4a7d16676
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
exwm.el
View file

@ -127,7 +127,7 @@
"Restart EXWM." "Restart EXWM."
(interactive) (interactive)
(exwm--log) (exwm--log)
(when (exwm--confirm-kill-emacs "[EXWM] Restart? " 'no-check) (when (exwm--confirm-kill-emacs "Restart?" 'no-check)
(let* ((attr (process-attributes (emacs-pid))) (let* ((attr (process-attributes (emacs-pid)))
(args (cdr (assq 'args attr))) (args (cdr (assq 'args attr)))
(ppid (cdr (assq 'ppid attr))) (ppid (cdr (assq 'ppid attr)))
@ -1017,7 +1017,7 @@ manager. If t, replace it, if nil, abort and ask the user if `ask'."
(`break (y-or-n-p prompt)) (`break (y-or-n-p prompt))
(x x))) (x x)))
(t (t
(yes-or-no-p (format "[EXWM] %d window(s) will be destroyed. %s" (yes-or-no-p (format "[EXWM] %d X window(s) will be destroyed. %s"
(length exwm--id-buffer-alist) prompt)))) (length exwm--id-buffer-alist) prompt))))
;; Run `kill-emacs-hook' (`server-force-stop' excluded) before Emacs ;; Run `kill-emacs-hook' (`server-force-stop' excluded) before Emacs
;; frames are unmapped so that errors (if any) can be visible. ;; frames are unmapped so that errors (if any) can be visible.