diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2006-07-20 20:25:02 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2006-07-20 20:25:02 +0000 |
| commit | c02337538f12e67f88891034a279b08da15c3e7f (patch) | |
| tree | 0318ba3cdf9743d674d67dfbc2c12cc4d6fbead3 /lisp/calc/calcalg3.el | |
| parent | 64d96023ac590312a5383816e5b64b1625f6e9a8 (diff) | |
| download | emacs-c02337538f12e67f88891034a279b08da15c3e7f.tar.gz emacs-c02337538f12e67f88891034a279b08da15c3e7f.tar.bz2 emacs-c02337538f12e67f88891034a279b08da15c3e7f.zip | |
(calc-curve-fit-history): New variable.
(calc-curve-fit): Use calc-curve-fit-history.
Diffstat (limited to 'lisp/calc/calcalg3.el')
| -rw-r--r-- | lisp/calc/calcalg3.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/calc/calcalg3.el b/lisp/calc/calcalg3.el index b1c5b80b17b..4c0134263d9 100644 --- a/lisp/calc/calcalg3.el +++ b/lisp/calc/calcalg3.el @@ -103,6 +103,9 @@ (defvar calc-curve-model) (defvar calc-curve-coefnames) +(defvar calc-curve-fit-history nil + "History for calc-curve-fit.") + (defun calc-curve-fit (arg &optional calc-curve-model calc-curve-coefnames calc-curve-varnames) (interactive "P") @@ -259,7 +262,8 @@ (let* ((calc-dollar-values calc-arg-values) (calc-dollar-used 0) (calc-hashes-used 0)) - (setq calc-curve-model (calc-do-alg-entry "" "Model formula: ")) + (setq calc-curve-model (calc-do-alg-entry "" "Model formula: " + nil 'calc-curve-fit-history)) (if (/= (length calc-curve-model) 1) (error "Bad format")) (setq calc-curve-model (car calc-curve-model) |