diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-11-25 01:05:00 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-11-25 01:05:00 +0000 |
| commit | abf1a55b87c13424d4f80b28b8d4c75003cbbe68 (patch) | |
| tree | 36b6b0e59563cbdea7131c66f1424ee78f2a39f1 /lisp/eshell | |
| parent | 0bcc6163fe83d56aef78034841e8938504d487da (diff) | |
| download | emacs-abf1a55b87c13424d4f80b28b8d4c75003cbbe68.tar.gz | |
(eshell-report-bug-address): Remove.
(eshell-report-bug): Redefine as an alias for report-emacs-bug.
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/eshell.el | 32 |
1 files changed, 2 insertions, 30 deletions
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: |