Fix +popup/raise for consecutive popups

This commit is contained in:
Henrik Lissner 2019-04-09 21:20:08 -04:00
parent 2c7f917691
commit ba23b63f5c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -400,10 +400,11 @@ the message buffer in a popup 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"))
(let ((buffer (current-buffer)) (let ((buffer (current-buffer))
(+popup--inhibit-transient t)
+popup--remember-last) +popup--remember-last)
(set-window-parameter window 'ttl nil)
(+popup/close window 'force) (+popup/close window 'force)
(display-buffer-pop-up-window buffer nil))) (let (display-buffer-alist)
(pop-to-buffer buffer))))
;;;###autoload ;;;###autoload
(defun +popup/diagnose () (defun +popup/diagnose ()