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

(emacsbug): Customized.

Browse source 
(report-emacs-bug-no-confirmation):
Renamed from report-emacs-bug-run-tersely.
(report-emacs-bug-no-explanations): New option.
(report-emacs-bug): Handle that option.
This commit is contained in:
Richard M. Stallman 1998-01-26 03:14:34 +00:00
parent ca69c42f3e
commit fbd410d6df
1 changed files with 29 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/mail/emacsbug.el
View file

@ -4,7 +4,7 @@
;; Author: K. Shane Hartman ;; Author: K. Shane Hartman
;; Maintainer: FSF ;; Maintainer: FSF
;; Keywords: maint ;; Keywords: maint mail
;; Not fully installed because it can work only on Internet hosts. ;; Not fully installed because it can work only on Internet hosts.
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
@ -37,6 +37,11 @@
(require 'sendmail) (require 'sendmail)
(defgroup emacsbug nil
"Sending Emacs bug reports."
:group 'maint
:group 'mail)
(defvar bug-gnu-emacs "bug-gnu-emacs@prep.ai.mit.edu" (defvar bug-gnu-emacs "bug-gnu-emacs@prep.ai.mit.edu"
"Address of mailing list for GNU Emacs bugs.") "Address of mailing list for GNU Emacs bugs.")
@ -46,9 +51,15 @@
(defvar report-emacs-bug-orig-text nil (defvar report-emacs-bug-orig-text nil
"The automatically-created initial text of bug report.") "The automatically-created initial text of bug report.")
;;;###autoload (defcustom report-emacs-bug-no-confirmation nil
(defvar report-emacs-bug-run-tersely nil "*If non-nil, suppress the confirmations asked for the sake of novice users."
"*If non-nil, suppress confirmations for novice users.") :group 'emacsbug
:type 'boolean)
(defcustom report-emacs-bug-no-explanations nil
"*If non-nil, suppress the explanations given for the sake of novice users."
:group 'emacsbug
:type 'boolean)
;;;###autoload ;;;###autoload
(defun report-emacs-bug (topic &optional recent-keys) (defun report-emacs-bug (topic &optional recent-keys)
@ -71,6 +82,7 @@ Prompts for bug subject. Leaves you in a mail buffer."
;; if the user was asked to confirm and said no. ;; if the user was asked to confirm and said no.
(goto-char (point-min)) (goto-char (point-min))
(re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n"))
(unless report-emacs-bug-no-explanations
;; Insert warnings for novice users. ;; Insert warnings for novice users.
(insert "This bug report will be sent to the Free Software Foundation,\n") (insert "This bug report will be sent to the Free Software Foundation,\n")
(let ((pos (point))) (let ((pos (point)))
@ -81,7 +93,7 @@ Prompts for bug subject. Leaves you in a mail buffer."
(insert "English") (insert "English")
(put-text-property pos (point) 'face 'highlight)) (put-text-property pos (point) 'face 'highlight))
(insert ", because the Emacs maintainers do not have (insert ", because the Emacs maintainers do not have
translators to read other languages for them.\n\n") translators to read other languages for them.\n\n"))
(insert "In " (emacs-version) "\n") (insert "In " (emacs-version) "\n")
(if (and system-configuration-options (if (and system-configuration-options
@ -169,7 +181,7 @@ Type SPC to scroll through this section and its subsections.")))
(let ((charsets (delq 'ascii (let ((charsets (delq 'ascii
(find-charset-region (point-min) (point-max))))) (find-charset-region (point-min) (point-max)))))
(if charsets (if charsets
(if (or report-emacs-bug-run-tersely (if (or report-emacs-bug-no-confirmation
(y-or-n-p "Convert non-ASCII letters to hexadecimal? ")) (y-or-n-p "Convert non-ASCII letters to hexadecimal? "))
(save-excursion (save-excursion
(goto-char (point-min)) (goto-char (point-min))
@ -183,7 +195,7 @@ Type SPC to scroll through this section and its subsections.")))
(error "Please convert non-ASCII characters to something else")))) (error "Please convert non-ASCII characters to something else"))))
;; The last warning for novice users. ;; The last warning for novice users.
(if (or report-emacs-bug-run-tersely (if (or report-emacs-bug-no-confirmation
(yes-or-no-p (yes-or-no-p
"Send this bug report to the Emacs maintainers? ")) "Send this bug report to the Emacs maintainers? "))
;; Just send the current mail. ;; Just send the current mail.