Fix elusive back-to-top-level error

These occurred because of disruptive kill-buffer-hooks running when the
backtrace buffer was auto-killed by the popup cleanup system. No more!
This commit is contained in:
Henrik Lissner 2018-06-13 23:25:40 +02:00
parent 933023d779
commit 1f07b37c9c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -97,11 +97,12 @@ the buffer is visible, then set another timer and try again later."
((eq ttl 0)
(kill-buffer buffer))
((with-demoted-errors "Error killing transient buffer: %s"
(let (confirm-kill-processes)
(when-let* ((process (get-buffer-process buffer)))
(kill-process process))
(let (kill-buffer-hook kill-buffer-query-functions)
(kill-buffer buffer)))))))))
(with-current-buffer buffer
(let (confirm-kill-processes)
(when-let* ((process (get-buffer-process buffer)))
(kill-process process))
(let (kill-buffer-hook kill-buffer-query-functions)
(kill-buffer buffer))))))))))
(defun +popup--init (window &optional alist)
"Initializes a popup window. Run any time a popup is opened. It sets the