Mercurial > emacs

changeset 72041:75c90936631e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-curve-fit-history): New variable. (calc-curve-fit): Use calc-curve-fit-history.
author Jay Belanger <jay.p.belanger@gmail.com>
date Thu, 20 Jul 2006 20:25:02 +0000
parents 327ca65acc1b
children 91a8a7d7528a
files lisp/calc/calcalg3.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calcalg3.el	Thu Jul 20 20:24:40 2006 +0000
+++ b/lisp/calc/calcalg3.el	Thu Jul 20 20:25:02 2006 +0000
@@ -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)