Mercurial > emacs

comparison lisp/calc/calc-graph.el @ 62516:b63a162aa98e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-graph-format-data): Make sure var-PlotRejects is bound before trying to check its value.
author Jay Belanger <jay.p.belanger@gmail.com>
date Thu, 19 May 2005 12:50:15 +0000
parents 3947739eeeb9
children 1db49616ce05 f042e7c0fe20
comparison
equal deleted inserted replaced
62515:604df7c8d679 62516:b63a162aa98e
862 (setq calc-graph-zval (math-float calc-graph-zval))) 862 (setq calc-graph-zval (math-float calc-graph-zval)))
863 (insert (math-format-number (nth 1 calc-graph-zval)) 863 (insert (math-format-number (nth 1 calc-graph-zval))
864 "e" (int-to-string (nth 2 calc-graph-zval)))))) 864 "e" (int-to-string (nth 2 calc-graph-zval))))))
865 (insert "\n")) 865 (insert "\n"))
866 (and (not (equal calc-graph-zval '(skip))) 866 (and (not (equal calc-graph-zval '(skip)))
867 (boundp 'var-PlotRejects)
867 (eq (car-safe var-PlotRejects) 'vec) 868 (eq (car-safe var-PlotRejects) 'vec)
868 (nconc var-PlotRejects 869 (nconc var-PlotRejects
869 (list (list 'vec 870 (list (list 'vec
870 calc-graph-curve-num 871 calc-graph-curve-num
871 calc-graph-stepcount 872 calc-graph-stepcount