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

doom/popup-close-all: return non-nil on success

Browse Source
This commit is contained in:
Henrik Lissner
2017-05-25 12:20:51 +02:00
parent d4a6b96db6
commit 5d47be15ef
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
core/autoload/popups.el
View File

@ -108,13 +108,16 @@ only close popups that have an :autoclose property in their rule (see
(interactive) (interactive)
(when-let (popups (doom-popup-windows)) (when-let (popups (doom-popup-windows))
(let ((orig-win (selected-window)) (let ((orig-win (selected-window))
success
doom-popup-remember-history) doom-popup-remember-history)
(setq doom-popup-history (mapcar #'doom--popup-data popups)) (setq doom-popup-history (mapcar #'doom--popup-data popups))
(dolist (window popups) (dolist (window popups)
(when (or force-p (when (or force-p
(called-interactively-p 'interactive) (called-interactively-p 'interactive)
(doom-popup-prop :autoclose window)) (doom-popup-prop :autoclose window))
(delete-window window)))))) (delete-window window)
(setq success t)))
success)))
;;;###autoload ;;;###autoload
(defun doom/popup-close-maybe () (defun doom/popup-close-maybe ()