# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1095792720 0
# Node ID 1b540cda70aa37f58f6742e725d95173a5b04d31
# Parent  e5942074bdbde59559ef75bd25791b4a34d7c58c
(calc-graph-add-curve): Moved the call to `calc-graph-set-styles' so
the gnuplot buffer will appear in a separate window.

diff -r e5942074bdbd -r 1b540cda70aa lisp/calc/calc-graph.el
--- a/lisp/calc/calc-graph.el	Tue Sep 21 02:27:01 2004 +0000
+++ b/lisp/calc/calc-graph.el	Tue Sep 21 18:52:00 2004 +0000
@@ -210,13 +210,13 @@
 	      "title \"" (symbol-name (nth 1 ydata)) "\" "
 	      "with dots")
       (setq pstyle (and (eq (car-safe pstyle) 'vec) (nth (1+ num) pstyle)))
-      (setq lstyle (and (eq (car-safe lstyle) 'vec) (nth (1+ num) lstyle)))
-      (calc-graph-set-styles
-       (or (and (Math-num-integerp lstyle) (math-trunc lstyle))
-	   0)
-       (or (and (Math-num-integerp pstyle) (math-trunc pstyle))
-	   (if (eq (car-safe (calc-var-value (nth 2 ydata))) 'vec)
-	       0 -1))))))
+      (setq lstyle (and (eq (car-safe lstyle) 'vec) (nth (1+ num) lstyle))))
+    (calc-graph-set-styles
+     (or (and (Math-num-integerp lstyle) (math-trunc lstyle))
+         0)
+     (or (and (Math-num-integerp pstyle) (math-trunc pstyle))
+         (if (eq (car-safe (calc-var-value (nth 2 ydata))) 'vec)
+             0 -1)))))
 
 (defun calc-graph-lookup (thing)
   (if (and (eq (car-safe thing) 'var)