# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1186202375 0
# Node ID 12609ae53f9becba52728a150c84287575127c5a
# Parent  f46c1df3427ae940b247559332fe6ebe6837bafa
(calc-curve-fit): Change plot indicator.

diff -r f46c1df3427a -r 12609ae53f9b lisp/calc/calcalg3.el
--- a/lisp/calc/calcalg3.el	Sat Aug 04 04:33:07 2007 +0000
+++ b/lisp/calc/calcalg3.el	Sat Aug 04 04:39:35 2007 +0000
@@ -135,11 +135,10 @@
 		  "' = alg entry, $ = stack, u = Model1, U = Model2")))
      (while (not calc-curve-model)
        (message 
-        (if plot
-            "Fit to model (plot): %s:%s"
-            "Fit to model: %s:%s")
+        "Fit to model: %s:%s%s"
         (nth which msgs)
-        (if homog " h" ""))
+        (if plot "p" " ")
+        (if homog "h" ""))
        (setq key (read-char))
        (cond ((= key ?\C-g)
 	      (keyboard-quit))