797 |
nil))) |
nil))) |
798 |
|
|
799 |
|
|
|
|
|
|
|
|
|
|
|
800 |
;;; Bug reporting |
;;; Bug reporting |
801 |
|
|
802 |
(defun report-calc-bug (topic) |
(defun report-calc-bug (topic) |
803 |
"Report a bug in Calc, the GNU Emacs calculator. |
"Report a bug in Calc, the GNU Emacs calculator. |
804 |
Prompts for bug subject. Leaves you in a mail buffer." |
Prompts for bug subject. Leaves you in a mail buffer." |
805 |
(interactive "sBug Subject: ") |
(interactive "sBug Subject: ") |
806 |
(mail nil calc-bug-address topic) |
(reporter-submit-bug-report calc-bug-address "Calc" '(calc-version) |
807 |
(goto-char (point-max)) |
nil nil |
808 |
(insert "\nIn Calc " calc-version ", Emacs " (emacs-version) "\n\n") |
"Please describe exactly what actions triggered the bug and the |
809 |
(message (substitute-command-keys "Type \\[mail-send] to send bug report"))) |
precise symptoms of the bug. If possible, include a backtrace by |
810 |
|
doing 'M-x toggle-debug-on-error', then reproducing the bug. |
811 |
|
" )) |
812 |
(defalias 'calc-report-bug 'report-calc-bug) |
(defalias 'calc-report-bug 'report-calc-bug) |
813 |
|
|
814 |
;;; calc-misc.el ends here |
;;; calc-misc.el ends here |