Commit a5ff3075 authored by Jay Belanger's avatar Jay Belanger
Browse files

(calc-get-operator-history): New variable.

(calc-get-operator): Use calc-get-operator-history.
parent 56e8410b
......@@ -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"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment