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

(eshell-report-bug-address): Remove.

Browse source 
(eshell-report-bug): Redefine as an alias for report-emacs-bug.
This commit is contained in:
Glenn Morris 2007-11-25 01:05:00 +00:00
parent 0bcc6163fe
commit abf1a55b87
2 changed files with 7 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-11-25 Glenn Morris <rgm@gnu.org>
* eshell/eshell.el (eshell-report-bug-address): Remove.
(eshell-report-bug): Redefine as an alias for report-emacs-bug.
2007-11-24 Glenn Morris <rgm@gnu.org>
* calendar/appt.el: Remove leading `*' from defcustom doc-strings.

32
lisp/eshell/eshell.el
View file

@ -453,40 +453,12 @@ corresponding to a successful execution."
;;;_* Reporting bugs
;;
;; Since Eshell has not yet been in use by a wide audience, and since
;; the number of possible configurations is quite large, it is certain
;; that many bugs slipped past the rigors of testing it was put
;; through. If you do encounter a bug, on any system, please report
;; If you do encounter a bug, on any system, please report
;; it -- in addition to any particular oddities in your configuration
;; -- so that the problem may be corrected for the benefit of others.
(defconst eshell-report-bug-address "johnw@gnu.org"
"E-mail address to send Eshell bug reports to.")
;;;###autoload
(defun eshell-report-bug (topic)
"Report a bug in Eshell.
Prompts for the TOPIC. Leaves you in a mail buffer.
Please include any configuration details that might be involved."
(interactive "sBug Subject: ")
(compose-mail eshell-report-bug-address topic)
(goto-char (point-min))
(re-search-forward (concat "^" (regexp-quote mail-header-separator) "$"))
(forward-line 1)
(let ((signature (buffer-substring (point) (point-max))))
;; Discourage users from writing non-English text.
(set-buffer-multibyte nil)
(delete-region (point) (point-max))
(insert signature)
(backward-char (length signature)))
(insert "emacs-version: " (emacs-version))
(insert "\n\nThere appears to be a bug in Eshell.\n\n"
"Please describe exactly what actions "
"triggered the bug and the precise\n"
"symptoms of the bug:\n\n")
;; This is so the user has to type something in order to send
;; the report easily.
(use-local-map (nconc (make-sparse-keymap) (current-local-map))))
(define-obsolete-function-alias 'eshell-report-bug 'report-emacs-bug)
;;; Code: