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

Fix +popup/raise not raising some windows

Browse Source 
The command now raises the popup into the previously selected window,
unless the prefix argument is used.
This commit is contained in:
Henrik Lissner
2019-09-20 23:54:17 -04:00
parent e10cd8cf2e
commit 2de198e749
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
modules/ui/popup/autoload/popup.el
View File

@ -412,9 +412,11 @@ the message buffer in a popup window."
t) t)
;;;###autoload ;;;###autoload
(defun +popup/raise (window) (defun +popup/raise (window &optional arg)
"Raise the current popup window into a regular window." "Raise the current popup window into a regular window.
(interactive (list (selected-window))) If prefix ARG, raise the current popup into a new window."
(interactive
(list (selected-window) current-prefix-arg))
(cl-check-type window window) (cl-check-type window window)
(unless (+popup-window-p window) (unless (+popup-window-p window)
(user-error "Cannot raise a non-popup window")) (user-error "Cannot raise a non-popup window"))
@ -422,7 +424,9 @@ the message buffer in a popup window."
(+popup--inhibit-transient t) (+popup--inhibit-transient t)
+popup--remember-last) +popup--remember-last)
(+popup/close window 'force) (+popup/close window 'force)
(display-buffer-pop-up-window buffer nil))) (if arg
(pop-to-buffer buffer)
(switch-to-buffer buffer))))
;;;###autoload ;;;###autoload
(defun +popup/diagnose () (defun +popup/diagnose ()