mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2025-12-06 10:31:23 -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

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"))))