doom/popup-close-all: return non-nil on success
This commit is contained in:
parent
d4a6b96db6
commit
5d47be15ef
1 changed files with 4 additions and 1 deletions
|
@ -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 ()
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue