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)
(user-error "Cannot raise a non-popup window"))
(let ((buffer (current-buffer))
(+popup--inhibit-transient t)
+popup--remember-last)
(set-window-parameter window 'ttl nil)
(+popup/close window 'force)
(display-buffer-pop-up-window buffer nil)))
(let (display-buffer-alist)
(pop-to-buffer buffer))))
;;;###autoload
(defun +popup/diagnose ()