diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-09 07:31:24 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-09 07:31:24 +0200 |
| commit | 4fef6e68f779b12f4f639ca51896f7a950f49237 (patch) | |
| tree | 15a48ddeb6139f464b49a3cf4d3af935c26e0f55 /lisp/mail/emacsbug.el | |
| parent | 5f727c6342dff0c96d09f6c21ac99d0168569c62 (diff) | |
| download | emacs-4fef6e68f779b12f4f639ca51896f7a950f49237.tar.gz emacs-4fef6e68f779b12f4f639ca51896f7a950f49237.tar.bz2 emacs-4fef6e68f779b12f4f639ca51896f7a950f49237.zip | |
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).
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 6 |
1 files changed, 5 insertions, 1 deletions
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) |