From: Colin Walters <walters@gnu.org>
Date: Thu, 22 Nov 2001 20:34:30 +0000 (+0000)
Subject: (report-calc-bug): Use `reporter-prompt-for-summary-p'.
X-Git-Tag: ttn-vms-21-2-B4~18290
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=afb55b714b0ec8e98e100a167f7b8835baed6fd6;p=emacs.git

(report-calc-bug): Use `reporter-prompt-for-summary-p'.
---

diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el
index c9819d1ea65..ad5258d17a7 100644
--- a/lisp/calc/calc-misc.el
+++ b/lisp/calc/calc-misc.el
@@ -799,16 +799,17 @@ loaded and the keystroke automatically re-typed."
 
 ;;; Bug reporting
 
-(defun report-calc-bug (topic)
+(defun report-calc-bug ()
   "Report a bug in Calc, the GNU Emacs calculator.
 Prompts for bug subject.  Leaves you in a mail buffer."
-  (interactive "sBug Subject: ")
-  (reporter-submit-bug-report calc-bug-address "Calc" '(calc-version)
-			      nil nil
-"Please describe exactly what actions triggered the bug and the
+  (interactive)
+  (let ((reporter-prompt-for-summary-p t))
+    (reporter-submit-bug-report calc-bug-address "Calc" '(calc-version)
+				nil nil
+				"Please describe exactly what actions triggered the bug and the
 precise symptoms of the bug.  If possible, include a backtrace by
 doing 'M-x toggle-debug-on-error', then reproducing the bug.
-" ))
+" )))
 (defalias 'calc-report-bug 'report-calc-bug)
 
 ;;; calc-misc.el ends here