General, minor refactor

This commit is contained in:
Henrik Lissner 2017-09-26 21:55:01 +02:00
parent 86ff43c6cb
commit 546ca0e313
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 30 additions and 31 deletions

View file

@ -31,10 +31,9 @@ this popup, just the specified properties. Returns the new popup window."
(defun doom-popup-switch-to-buffer (buffer)
"Switch the current (or closest) pop-up window to BUFFER."
(unless (doom-popup-p)
(let ((popups (doom-popup-windows)))
(unless popups
(error "No popups to switch"))
(select-window (car popups))))
(if-let (popups (doom-popup-windows))
(select-window (car popups))
(error "No popups to switch to")))
(set-window-dedicated-p nil nil)
(switch-to-buffer buffer nil t)
(prog1 (selected-window)