Mercurial > emacs
changeset 86424:abb353cfc8db
(eshell-report-bug-address): Remove.
(eshell-report-bug): Redefine as an alias for report-emacs-bug.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 25 Nov 2007 01:04:50 +0000 |
| parents | 4325c9655d0d |
| children | 5eea1f0b4077 |
| files | lisp/eshell/eshell.el |
| diffstat | 1 files changed, 2 insertions(+), 30 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/eshell/eshell.el Sun Nov 25 00:42:41 2007 +0000 +++ b/lisp/eshell/eshell.el Sun Nov 25 01:04:50 2007 +0000 @@ -453,40 +453,12 @@ ;;;_* 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: