[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
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-graph.el |
Date: |
Tue, 21 Sep 2004 14:59:22 -0400 |
Index: emacs/lisp/calc/calc-graph.el
diff -c emacs/lisp/calc/calc-graph.el:1.9 emacs/lisp/calc/calc-graph.el:1.10
*** emacs/lisp/calc/calc-graph.el:1.9 Mon Sep 1 15:45:18 2003
--- emacs/lisp/calc/calc-graph.el Tue Sep 21 18:52:00 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/calc/calc-graph.el,
Jay Belanger <=