(calc-curve-fit): Change plot indicator.

1 files changed, 3 insertions, 4 deletions

diff --git a/lisp/calc/calcalg3.el b/lisp/calc/calcalg3.el
index 287eb114ac2..eb3611c3fd0 100644
--- a/lisp/calc/calcalg3.el
+++ b/lisp/calc/calcalg3.el
@@ -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))