/[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.5.2.2 by miles, Tue Oct 14 23:35:48 2003 UTC revision 1.5.2.3 by miles, Wed Oct 6 05:21:53 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.5.2.2  
changed lines
  Added in v.1.5.2.3

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