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:
parent
933023d779
commit
1f07b37c9c
1 changed files with 6 additions and 5 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue