mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 16:10:46 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
the gnuplot buffer will appear in a separate window.
This commit is contained in:
Jay Belanger 2004-09-21 18:52:00 +00:00
parent 88a74fa51b
commit b881982543
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/calc/calc-graph.el
View file

@ -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)