diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2006-07-20 20:23:58 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2006-07-20 20:23:58 +0000 |
| commit | 79d996573e2924041fdeccd01e0c41fcebaab0a9 (patch) | |
| tree | bd62b100e7eb6f09a16df03cc1a9204ff0d8622d /lisp/calc/calc-map.el | |
| parent | 3886e2f953f30e8f70348db4bd55fc2aab75fe73 (diff) | |
| download | emacs-79d996573e2924041fdeccd01e0c41fcebaab0a9.tar.gz | |
(calc-get-operator-history): New variable.
(calc-get-operator): Use calc-get-operator-history.
Diffstat (limited to 'lisp/calc/calc-map.el')
| -rw-r--r-- | lisp/calc/calc-map.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/calc/calc-map.el b/lisp/calc/calc-map.el index 63e45538c32..c9c71b3ebf1 100644 --- a/lisp/calc/calc-map.el +++ b/lisp/calc/calc-map.el @@ -498,6 +498,9 @@ ;;; Return a list of the form (nargs func name) +(defvar calc-get-operator-history nil + "History for calc-get-operator.") + (defun calc-get-operator (msg &optional nargs) (setq calc-aborted-prefix nil) (let ((inv nil) (hyp nil) (prefix nil) (forcenargs nil) @@ -583,7 +586,8 @@ (let* ((calc-dollar-values calc-arg-values) (calc-dollar-used 0) (calc-hashes-used 0) - (func (calc-do-alg-entry "" "Function: "))) + (func (calc-do-alg-entry "" "Function: " nil + 'calc-get-operator-history))) (setq record-entry t) (or (= (length func) 1) (error "Bad format")) |