From 4fef6e68f779b12f4f639ca51896f7a950f49237 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 9 Oct 2019 07:31:24 +0200 Subject: [PATCH] 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). --- lisp/mail/emacsbug.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 13219a4b444..1c2f11680b6 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -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) -- 2.39.5