Mercurial > emacs

changeset 82267:12609ae53f9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-curve-fit): Change plot indicator.
author Jay Belanger <jay.p.belanger@gmail.com>
date Sat, 04 Aug 2007 04:39:35 +0000
parents f46c1df3427a
children c1afebeec697
files lisp/calc/calcalg3.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))