[Emacs-diffs] Changes to emacs/lisp/calc/calcalg3.el,v

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      07/08/04 04:39:35

Index: calcalg3.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calcalg3.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- calcalg3.el 4 Aug 2007 04:33:07 -0000       1.21
+++ calcalg3.el 4 Aug 2007 04:39:35 -0000       1.22
@@ -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))