(calc-graph-add-curve): Moved the call to `calc-graph-set-styles' so

the gnuplot buffer will appear in a separate window.

diff --git a/lisp/calc/calc-graph.el b/lisp/calc/calc-graph.el
index df7bbe377ab3c09a6474730902048e18f6e91cef..70d044c202e5cbd8b89092b639297c624cec7495 100644 (file)
--- a/lisp/calc/calc-graph.el
+++ b/lisp/calc/calc-graph.el
@@ -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)