diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2008-08-14 18:34:05 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2008-08-14 18:34:05 +0000 |
| commit | 77ba6df41b2d541c2088b4239fe2e7ca73a7a87a (patch) | |
| tree | 8433dc376937de51c67168860377cfbe90188931 /lisp | |
| parent | 768ae6f240393a26e61f8292c144bfd54cf2ed24 (diff) | |
| download | emacs-77ba6df41b2d541c2088b4239fe2e7ca73a7a87a.tar.gz | |
(report-calc-bug): Remove version number.
calc-stuff (calc-version): Remove function.
calc.el (calc-version): Remove.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calc/calc-misc.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el index 6aaf0095419..350e46960bd 100644 --- a/lisp/calc/calc-misc.el +++ b/lisp/calc/calc-misc.el @@ -216,7 +216,7 @@ Calc user interface as before (either C-x * C or C-x * K; initially C-x * C). ;;;###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 @@ Calc user interface as before (either C-x * C or C-x * K; initially C-x * C). "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 @@ loaded and the keystroke automatically re-typed." 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. |