Bury the help buffer after sending a bug report

* lisp/mail/emacsbug.el (report-emacs-bug-hook): Bury the help
buffer after sending the bug report (bug#22712).
This commit is contained in:
Lars Ingebrigtsen 2019-10-09 07:31:24 +02:00
parent 5f727c6342
commit 4fef6e68f7

View file

@ -477,7 +477,11 @@ and send the mail again%s."
(not (yes-or-no-p
(format-message "Is `%s' really your email address? "
from)))
(error "Please edit the From address and try again"))))))
(error "Please edit the From address and try again"))))
;; Bury the help buffer (if it's shown).
(when-let ((help (get-buffer "*Bug Help*")))
(when (get-buffer-window help)
(quit-window nil (get-buffer-window help))))))
(provide 'emacsbug)