Subject: Re: bug#20697: 25.0.50; Mention `M-x report-emacs-bug' on splash screen

From: Stefan Kangas <[email-masked]>
Date: Wed, 21 Aug 2019 02:41:53 +0200

tags 20697 + patch
quit

Lars Ingebrigtsen <[email-masked]> writes:

> Drew Adams <[email-masked]> writes:
>
>> Consider adding `M-x report-emacs-bug' to the splash page.
>> (And consider pointing out the Help menu, on the splash page.)
>>
>> Here is one indication that a new user might not know how to file a
>> bug report: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=20628#284
>>
>>   This is a bug that had annoyed me 4 or 5 years ago when I first used
>>   Emacs, but at that time I didn't really know how to report bugs.
>
> There's already too much verbiage on the splash screen, but perhaps this
> would make sense...

How about the attached patch?

Thanks,
Stefan Kangas
From dd55db518e27615ef871d19eede9a20cf71832b6 Mon Sep 17 00:00:00 2001
From: Stefan Kangas <[email-masked]>
Date: Wed, 21 Aug 2019 02:37:41 +0200
Subject: [PATCH] Add "Reporting Bugs" link to about screen

* lisp/help.el (view-emacs-howto-report-bugs): New function.
* lisp/startup.el (fancy-about-text, normal-about-screen): Add link
"Reporting Bugs".  (Bug#20697)
---
 lisp/help.el    |  5 +++++
 lisp/startup.el | 10 +++++++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/lisp/help.el b/lisp/help.el
index e40178de96..1f0d0e8e36 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -438,6 +438,11 @@ view-emacs-FAQ
   (interactive)
   (info "(efaq)"))
 
+(defun view-emacs-howto-report-bugs ()
+  "Display information on how to report bugs in Emacs."
+  (interactive)
+  (info "(emacs)Bugs"))
+
 (defun view-emacs-problems ()
   "Display info on known problems with Emacs and possible workarounds."
   (interactive)
diff --git a/lisp/startup.el b/lisp/startup.el
index 564428580b..c8a651c4aa 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1596,6 +1596,8 @@ fancy-about-text
      :link ("Contributing"
 	    ,(lambda (_button) (info "(emacs)Contributing")))
      "\tHow to contribute improvements to Emacs\n"
+     :link ("Report Bugs" ,(lambda (_button) (view-emacs-howto-report-bugs)))
+     "\tHow to report bugs in Emacs\n"
      "\n"
      :link ("GNU and Freedom" ,(lambda (_button) (describe-gnu-project)))
      "\tWhy we developed GNU Emacs, and the GNU operating system\n"
@@ -2174,7 +2176,13 @@ normal-about-screen
 		 'action
 		 (lambda (_button) (info "(emacs)Contributing"))
 		 'follow-link t)
-  (insert "\tHow to contribute improvements to Emacs\n\n")
+  (insert "\tHow to contribute improvements to Emacs\n")
+
+  (insert-button "Reporting Bugs"
+		 'action
+		 (lambda (_button) (view-emacs-howto-report-bugs))
+		 'follow-link t)
+  (insert "\tHow to report bugs in Emacs\n\n")
 
   (insert-button "GNU and Freedom"
 		 'action (lambda (_button) (describe-gnu-project))
-- 
2.20.1