procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add "How to Report a Bug" to Help menu

Browse source 
* lisp/info.el (info-emacs-bug): New command.
* lisp/menu-bar.el (menu-bar-help-menu): Add "How to Report a Bug" to Help.
* lisp/mail/emacsbug.el (report-emacs-bug): Replace with info-emacs-bug.
This commit is contained in:
Glenn Morris 2012-05-21 20:31:34 -07:00
parent c463dd01c7
commit 3290526dde
4 changed files with 19 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2012-05-22 Glenn Morris <rgm@gnu.org>
* info.el (info-emacs-bug): New command.
* menu-bar.el (menu-bar-help-menu): Add "How to Report a Bug" to Help.
* mail/emacsbug.el (report-emacs-bug): Replace with info-emacs-bug.
2012-05-21 Glenn Morris <rgm@gnu.org>
* makefile.w32-in (update-subdirs-SH):

8
lisp/info.el
View file

@ -1,6 +1,6 @@
;; info.el --- info package for Emacs
;; Copyright (C) 1985-1986, 1992-2012 Free Software Foundation, Inc.
;; Copyright (C) 1985-1986, 1992-2012 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: help
@ -682,6 +682,12 @@ See a list of available Info commands in `Info-mode'."
(interactive)
(info "emacs"))
;;;###autoload
(defun info-emacs-bug ()
"Display the \"Reporting Bugs\" section of the Emacs manual in Info mode."
(interactive)
(info "(emacs)Bugs"))
;;;###autoload
(defun info-standalone ()
"Run Emacs as a standalone Info reader.

7
lisp/mail/emacsbug.el
View file

@ -316,7 +316,7 @@ usually do not have translators for other languages.\n\n")))
(fill-region (line-beginning-position 0) (point))
;; This is so the user has to type something in order to send easily.
(use-local-map (nconc (make-sparse-keymap) (current-local-map)))
(define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info)
(define-key (current-local-map) "\C-c\C-i" 'info-emacs-bug)
(if can-insert-mail
(define-key (current-local-map) "\C-cm"
'report-emacs-bug-insert-to-mailer))
@ -353,10 +353,7 @@ usually do not have translators for other languages.\n\n")))
(buffer-substring-no-properties (point-min) (point)))
(goto-char user-point)))
(defun report-emacs-bug-info ()
"Go to the Info node on reporting Emacs bugs."
(interactive)
(info "(emacs)Bugs"))
(define-obsolete-function-alias 'report-emacs-bug-info 'info-emacs-bug "24.2")
;; It's the default mail mode, so it seems OK to use its features.
(autoload 'message-bogus-recipient-p "message")

5
lisp/menu-bar.el
View file

@ -1,6 +1,6 @@
;;; menu-bar.el --- define a default menu bar
;; Copyright (C) 1993-1995, 2000-2012 Free Software Foundation, Inc.
;; Copyright (C) 1993-1995, 2000-2012 Free Software Foundation, Inc.
;; Author: RMS
;; Maintainer: FSF
@ -1752,6 +1752,9 @@ key, a click, or a menu-item")))
(define-key menu [send-emacs-bug-report]
`(menu-item ,(purecopy "Send Bug Report...") report-emacs-bug
:help ,(purecopy "Send e-mail to Emacs maintainers")))
(define-key menu [emacs-manual-bug]
`(menu-item ,(purecopy "How to Report a Bug") info-emacs-bug
:help ,(purecopy "Read about how to report an Emacs bug")))
(define-key menu [emacs-known-problems]
`(menu-item ,(purecopy "Emacs Known Problems") view-emacs-problems
:help ,(purecopy "Read about known problems with Emacs")))