From abf1a55b87c13424d4f80b28b8d4c75003cbbe68 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 25 Nov 2007 01:05:00 +0000 Subject: [PATCH] (eshell-report-bug-address): Remove. (eshell-report-bug): Redefine as an alias for report-emacs-bug. --- lisp/ChangeLog | 5 +++++ lisp/eshell/eshell.el | 32 ++------------------------------ 2 files changed, 7 insertions(+), 30 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 997cc9d5ec4..702e434452e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-11-25 Glenn Morris + + * eshell/eshell.el (eshell-report-bug-address): Remove. + (eshell-report-bug): Redefine as an alias for report-emacs-bug. + 2007-11-24 Glenn Morris * calendar/appt.el: Remove leading `*' from defcustom doc-strings. diff --git a/lisp/eshell/eshell.el b/lisp/eshell/eshell.el index 518fb82ac4d..721fa7ebbe4 100644 --- a/lisp/eshell/eshell.el +++ b/lisp/eshell/eshell.el @@ -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: -- 2.39.2