# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1153427102 0
# Node ID 75c90936631ea7ee12911647075f7ff3afb2eaa4
# Parent  327ca65acc1be0e0fb081435141077a3423e7183
(calc-curve-fit-history): New variable.
(calc-curve-fit): Use calc-curve-fit-history.

diff -r 327ca65acc1b -r 75c90936631e lisp/calc/calcalg3.el
--- 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)