diff options
author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-08-04 04:39:35 +0000 |
---|---|---|
committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-08-04 04:39:35 +0000 |
commit | 48b097e0c261ee440aa4758b7fddeb7c742da347 (patch) | |
tree | 6eae630056842459a2f7c248d8461f763651b582 /lisp/calc/calcalg3.el | |
parent | def4f741fcdc831e203518b042f0f056458a3cf2 (diff) | |
download | emacs-48b097e0c261ee440aa4758b7fddeb7c742da347.tar.gz |
(calc-curve-fit): Change plot indicator.
Diffstat (limited to 'lisp/calc/calcalg3.el')
-rw-r--r-- | lisp/calc/calcalg3.el | 7 |
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)) |