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

This commit is contained in:
Henrik Lissner 2017-05-25 12:20:51 +02:00
parent d4a6b96db6
commit 5d47be15ef

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