diff options
| -rw-r--r-- | lisp/calc/calc-graph.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/calc/calc-graph.el b/lisp/calc/calc-graph.el index df7bbe377ab..70d044c202e 100644 --- a/lisp/calc/calc-graph.el +++ b/lisp/calc/calc-graph.el | |||
| @@ -210,13 +210,13 @@ | |||
| 210 | "title \"" (symbol-name (nth 1 ydata)) "\" " | 210 | "title \"" (symbol-name (nth 1 ydata)) "\" " |
| 211 | "with dots") | 211 | "with dots") |
| 212 | (setq pstyle (and (eq (car-safe pstyle) 'vec) (nth (1+ num) pstyle))) | 212 | (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))) | 213 | (setq lstyle (and (eq (car-safe lstyle) 'vec) (nth (1+ num) lstyle)))) |
| 214 | (calc-graph-set-styles | 214 | (calc-graph-set-styles |
| 215 | (or (and (Math-num-integerp lstyle) (math-trunc lstyle)) | 215 | (or (and (Math-num-integerp lstyle) (math-trunc lstyle)) |
| 216 | 0) | 216 | 0) |
| 217 | (or (and (Math-num-integerp pstyle) (math-trunc pstyle)) | 217 | (or (and (Math-num-integerp pstyle) (math-trunc pstyle)) |
| 218 | (if (eq (car-safe (calc-var-value (nth 2 ydata))) 'vec) | 218 | (if (eq (car-safe (calc-var-value (nth 2 ydata))) 'vec) |
| 219 | 0 -1)))))) | 219 | 0 -1))))) |
| 220 | 220 | ||
| 221 | (defun calc-graph-lookup (thing) | 221 | (defun calc-graph-lookup (thing) |
| 222 | (if (and (eq (car-safe thing) 'var) | 222 | (if (and (eq (car-safe thing) 'var) |