(calc-version): New function.

2007-04-16 02:30:04 +00:00
parent 213f742013
commit bd149d6ec3
1 changed files with 5 additions and 0 deletions
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1148,6 +1148,11 @@ If nil, selections displayed but ignored.")

 (defvar calc-alg-map) ; Defined in calc-ext.el

+(defun calc-version ()
+  "Return version of this version of Calc."
+  (interactive)
+  (message (concat "Calc version " calc-version)))
+
 (defun calc-mode ()
  "Calculator major mode.