From dd55db518e27615ef871d19eede9a20cf71832b6 Mon Sep 17 00:00:00 2001 From: Stefan Kangas 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