/[emacs]/emacs/lisp/calc/calc-graph.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-graph.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by miles, Mon Sep 1 15:45:18 2003 UTC revision 1.10 by jpb, Tue Sep 21 18:52:00 2004 UTC
# Line 210  Line 210 
210                "title \"" (symbol-name (nth 1 ydata)) "\" "                "title \"" (symbol-name (nth 1 ydata)) "\" "
211                "with dots")                "with dots")
212        (setq pstyle (and (eq (car-safe pstyle) 'vec) (nth (1+ num) pstyle)))        (setq pstyle (and (eq (car-safe pstyle) 'vec) (nth (1+ num) pstyle)))
213        (setq lstyle (and (eq (car-safe lstyle) 'vec) (nth (1+ num) lstyle)))        (setq lstyle (and (eq (car-safe lstyle) 'vec) (nth (1+ num) lstyle))))
214        (calc-graph-set-styles      (calc-graph-set-styles
215         (or (and (Math-num-integerp lstyle) (math-trunc lstyle))       (or (and (Math-num-integerp lstyle) (math-trunc lstyle))
216             0)           0)
217         (or (and (Math-num-integerp pstyle) (math-trunc pstyle))       (or (and (Math-num-integerp pstyle) (math-trunc pstyle))
218             (if (eq (car-safe (calc-var-value (nth 2 ydata))) 'vec)           (if (eq (car-safe (calc-var-value (nth 2 ydata))) 'vec)
219                 0 -1))))))               0 -1)))))
220    
221  (defun calc-graph-lookup (thing)  (defun calc-graph-lookup (thing)
222    (if (and (eq (car-safe thing) 'var)    (if (and (eq (car-safe thing) 'var)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26