emacs-diffs
[Top][All Lists]
Advanced

[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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]