[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 [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-graph.el [emacs-unicode-2] |
Date: |
Sat, 25 Sep 2004 08:28:38 -0400 |
Index: emacs/lisp/calc/calc-graph.el
diff -c emacs/lisp/calc/calc-graph.el:1.8.2.1
emacs/lisp/calc/calc-graph.el:1.8.2.2
*** emacs/lisp/calc/calc-graph.el:1.8.2.1 Fri Apr 16 12:50:11 2004
--- emacs/lisp/calc/calc-graph.el Sat Sep 25 12:05:29 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 [emacs-unicode-2],
Miles Bader <=