THOU SHALT NOT WORSHIP FALSE IDOLS, said the byte compiler

And I obeyed.
This commit is contained in:
Henrik Lissner 2018-01-06 04:24:37 -05:00
parent d738a8d13a
commit 48b0a468d1
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 6 additions and 7 deletions

View file

@ -315,9 +315,6 @@ with the :popup setting."
prevent the popup(s) from messing up the UI (or vice versa)."
`(let* ((in-popup-p (+popup-p))
(popups (+popup-windows))
(popup-states
(cl-loop for p in popups
collect (cons (window-buffer p) (window-state-get p))))
+popup--last)
(dolist (p popups)
(+popup/close p 'force))

View file

@ -143,7 +143,7 @@ ALIST supports one custom parameter: `size', which will resolve to
(defun doom*ignore-window-parameters (orig-fn &rest args)
"Allow *interactive* window moving commands to traverse popups."
(cl-letf (((symbol-function #'windmove-find-other-window)
(lambda (direction &optional window ignore sign wrap mini)
(lambda (dir &optional arg window)
(window-in-direction
(pcase dir (`up 'above) (`down 'below) (_ dir))
window (bound-and-true-p +popup-mode) arg windmove-wrap-around t))))