bug#55863: 29.0.50; [PATCH] Avoid hanging chad of *Backtrace*

[dick]

(let ((pop-after (lambda (&rest _args) (throw 'here t))))
  (unwind-protect
      (catch 'here
        (add-function :after (symbol-function 'pop-to-buffer) pop-after)
        (debug))
    (remove-function (symbol-function 'pop-to-buffer) pop-after))
  (cl-assert (not (get-buffer "*Backtrace*"))))

OR

(let ((debug-on-error t))
  (error "No chads please."))

Then type "q", "C-x C-b", and note the empty lurker *Backtrace*.

Apparently I'm the only one irked by this recurring bugaboo.