Changeset 4131 for trunk/lisp/calc/calc-map.el
- Timestamp:
- 07/29/06 07:48:34 (2 years ago)
- Files:
-
- trunk/lisp/calc/calc-map.el (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/calc/calc-map.el
r4037 r4131 499 499 500 500 ;;; Return a list of the form (nargs func name) 501 (defvar calc-get-operator-history nil 502 "History for calc-get-operator.") 503 501 504 (defun calc-get-operator (msg &optional nargs) 502 505 (setq calc-aborted-prefix nil) … … 584 587 (calc-dollar-used 0) 585 588 (calc-hashes-used 0) 586 (func (calc-do-alg-entry "" "Function: "))) 589 (func (calc-do-alg-entry "" "Function: " nil 590 'calc-get-operator-history))) 587 591 (setq record-entry t) 588 592 (or (= (length func) 1)
