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

diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el
index c9819d1ea653bb39d56305a10dd2e06319d9e554..ad5258d17a7ce48bb78e10600cb0de4005171f9f 100644 (file)
--- 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