emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 4fef6e6: Bury the help buffer after sending a bug r


From: Lars Ingebrigtsen
Subject: [Emacs-diffs] master 4fef6e6: Bury the help buffer after sending a bug report
Date: Wed, 9 Oct 2019 01:31:33 -0400 (EDT)

branch: master
commit 4fef6e68f779b12f4f639ca51896f7a950f49237
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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 13219a4..1c2f116 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]