emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor +popup/other

Browse source
This commit is contained in:
Henrik Lissner 2019-06-30 18:12:16 +02:00
parent 2762a08a76
commit 53d1bf6b58
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
modules/ui/popup/autoload/popup.el
View file

@ -330,15 +330,14 @@ Any non-nil value besides the above will be used as the raw value for
(defun +popup/other () (defun +popup/other ()
"Cycle through popup windows, like `other-window'. Ignores regular windows." "Cycle through popup windows, like `other-window'. Ignores regular windows."
(interactive) (interactive)
(let ((popups (+popup-windows)) (if-let (popups (+popup-windows))
(window (selected-window))) (select-window (if (+popup-window-p)
(unless popups (let ((window (selected-window)))
(user-error "No popups are open")) (or (car-safe (cdr (memq window popups)))
(select-window (if (+popup-window-p) (car (delq window popups))
(or (car-safe (cdr (memq window popups))) (car popups)))
(car (delq window popups)) (car popups)))
(car popups)) (user-error "No popups are open")))
(car popups)))))
;;;###autoload ;;;###autoload
(defun +popup/close (&optional window force-p) (defun +popup/close (&optional window force-p)