[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-graph.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-graph.el [lexbind] |
Date: |
Wed, 06 Oct 2004 01:48:26 -0400 |
Index: emacs/lisp/calc/calc-graph.el
diff -c emacs/lisp/calc/calc-graph.el:1.5.2.2
emacs/lisp/calc/calc-graph.el:1.5.2.3
*** emacs/lisp/calc/calc-graph.el:1.5.2.2 Tue Oct 14 23:35:48 2003
--- emacs/lisp/calc/calc-graph.el Wed Oct 6 05:21:53 2004
***************
*** 210,222 ****
"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))))))
(defun calc-graph-lookup (thing)
(if (and (eq (car-safe thing) 'var)
--- 210,222 ----
"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)))))
(defun calc-graph-lookup (thing)
(if (and (eq (car-safe thing) 'var)
- [Emacs-diffs] Changes to emacs/lisp/calc/calc-graph.el [lexbind],
Miles Bader <=