awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix: doom-quit-p when use-dialog-box

Browse Source 
I don't know what I was thinking, but I need more sleep.

Amend: 1a0fb88897
This commit is contained in:
Henrik Lissner
2025-04-15 19:07:13 -04:00
parent d8b36d8b17
commit 009a285c0a
1 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/lib/ui.el
View File

@ -20,12 +20,10 @@ Returns t if it is safe to kill this session. Does not prompt if no real buffers
are open." are open."
(or (not (ignore-errors (doom-real-buffer-list))) (or (not (ignore-errors (doom-real-buffer-list)))
(if use-dialog-box (if use-dialog-box
(pcase (x-popup-dialog (x-popup-dialog
t `("Really quit Emacs?" t `("Really quit Emacs?"
("Quit anyway" . t) ("Yes" . t)
("Cancel" . nil))) ("Cancel" . nil)))
('quit-anyway t)
('cancel nil))
(yes-or-no-p (format "%s" (or prompt "Really quit Emacs?")))) (yes-or-no-p (format "%s" (or prompt "Really quit Emacs?"))))
(ignore (message "Aborted")))) (ignore (message "Aborted"))))