Mercurial > emacs
changeset 57183:1b540cda70aa
(calc-graph-add-curve): Moved the call to `calc-graph-set-styles' so
the gnuplot buffer will appear in a separate window.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Tue, 21 Sep 2004 18:52:00 +0000 |
| parents | e5942074bdbd |
| children | 6746650a3a84 |
| files | lisp/calc/calc-graph.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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)