[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:33:07

Index: calcalg3.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calcalg3.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- calcalg3.el 4 Aug 2007 03:52:06 -0000       1.20
+++ calcalg3.el 4 Aug 2007 04:33:07 -0000       1.21
@@ -134,7 +134,10 @@
                   "P prefix = plot result"
                  "' = alg entry, $ = stack, u = Model1, U = Model2")))
      (while (not calc-curve-model)
-       (message "Fit to model: %s:%s"
+       (message 
+        (if plot
+            "Fit to model (plot): %s:%s"
+            "Fit to model: %s:%s")
                (nth which msgs)
                (if homog " h" ""))
        (setq key (read-char))
@@ -145,13 +148,15 @@
             ((memq key '(?h ?H))
              (setq homog (not homog)))
              ((= key ?P)
+              (if plot
+                  (setq plot nil)
               (let ((data (calc-top 1)))
                 (if (or
                      (calc-is-hyperbolic)
                      (calc-is-inverse)
                      (not (= (length data) 3)))
                    (setq plot "Can't plot")
-                  (setq plot data))))
+                    (setq plot data)))))
             ((progn
                (if (eq key ?\$)
                    (setq n 1)