mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2025-12-06 02:30:33 -08:00
Code Issues 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
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
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."
(or (not (ignore-errors (doom-real-buffer-list)))
(if use-dialog-box
(pcase (x-popup-dialog
(x-popup-dialog
t `("Really quit Emacs?"
("Quit anyway" . t)
("Yes" . t)
("Cancel" . nil)))
('quit-anyway t)
('cancel nil))
(yes-or-no-p (format "%s" (or prompt "Really quit Emacs?"))))
(ignore (message "Aborted"))))