awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

General, minor refactor

Browse Source
This commit is contained in:
Henrik Lissner
2017-09-26 21:55:01 +02:00
parent 86ff43c6cb
commit 546ca0e313
3 changed files with 30 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
core/autoload/popups.el
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)