changeset 97463:c28e1ae0ccfa

(report-calc-bug): Remove version number. calc-stuff (calc-version): Remove function. calc.el (calc-version): Remove.
author Jay Belanger <jay.p.belanger@gmail.com>
date Thu, 14 Aug 2008 18:34:05 +0000
parents 6ceebc15f462
children f8626facae0e
files lisp/calc/calc-misc.el
diffstat 1 files changed, 5 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-misc.el	Thu Aug 14 18:33:41 2008 +0000
+++ b/lisp/calc/calc-misc.el	Thu Aug 14 18:34:05 2008 +0000
@@ -216,7 +216,7 @@
 ;;;###autoload
 (defun calc-help ()
   (interactive)
-  (let ((msgs (append
+  (let ((msgs
 	 '("Press `h' for complete help; press `?' repeatedly for a summary"
 	   "Letter keys: Negate; Precision; Yank; Why; Xtended cmd; Quit"
 	   "Letter keys: SHIFT + Undo, reDo; Keep-args; Inverse, Hyperbolic"
@@ -235,10 +235,8 @@
 	   "Prefix keys: Kombinatorics/statistics, Modes, Store/recall"
 	   "Prefix keys: Trail/time, Units/statistics, Vector/matrix"
 	   "Prefix keys: Z (user), SHIFT + Z (define)"
-	   "Prefix keys: prefix + ? gives further help for that prefix")
-	 (list (format
-		"  Calc %s by Dave Gillespie, daveg@synaptics.com"
-		calc-version)))))
+	   "Prefix keys: prefix + ? gives further help for that prefix"
+           "  Calc by Dave Gillespie, daveg@synaptics.com")))
     (if calc-full-help-flag
 	msgs
       (if (or calc-inverse-flag calc-hyperbolic-flag)
@@ -834,8 +832,8 @@
 Prompts for bug subject.  Leaves you in a mail buffer."
   (interactive)
   (let ((reporter-prompt-for-summary-p t))
-    (reporter-submit-bug-report calc-bug-address "Calc" '(calc-version)
-				nil nil
+    (reporter-submit-bug-report calc-bug-address "Calc"
+				nil 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.