mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(calc-graph-lookup): Avoid assignment to free variable `var'.

Browse Source 
Delete trailing whitespace.
This commit is contained in:
Glenn Morris 2009-09-19 21:22:45 +00:00
parent f3445fab9f
commit 547c692190
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2009-09-19 Glenn Morris <rgm@gnu.org>
* calc/calc-graph.el (calc-graph-lookup): Avoid assignment to free
variable `var'.
* calc/calc-alg.el (var):
* calc/calcalg2.el (var): Define for compiler.

17
lisp/calc/calc-graph.el
View File

@ -227,7 +227,8 @@
(or found
(let ((varname (concat "PlotData"
(int-to-string
(1+ (length calc-graph-var-cache))))))
(1+ (length calc-graph-var-cache)))))
var)
(setq var (list 'var (intern varname)
(intern (concat "var-" varname)))
found (cons thing var)
@ -279,9 +280,9 @@
(defvar var-DUMMY2)
(defvar var-PlotRejects)
;; The following variables are local to calc-graph-plot, but are
;; The following variables are local to calc-graph-plot, but are
;; used in the functions calc-graph-compute-2d, calc-graph-refine-2d,
;; calc-graph-recompute-2d, calc-graph-compute-3d and
;; calc-graph-recompute-2d, calc-graph-compute-3d and
;; calc-graph-format-data, which are called by calc-graph-plot.
(defvar calc-graph-yvalue)
(defvar calc-graph-yvec)
@ -725,7 +726,7 @@
calc-graph-yp (nconc calc-graph-yp (cons 0 (copy-sequence (cdr calc-graph-y3value))))
calc-graph-zp (nconc calc-graph-zp (cons '(skip)
(copy-sequence (cdr (car calc-graph-yvalue)))))))
(setq calc-graph-numsteps (1- (* calc-graph-numsteps
(setq calc-graph-numsteps (1- (* calc-graph-numsteps
(1+ calc-graph-numsteps3)))))
(if (= (setq calc-graph-numsteps (1- (length calc-graph-yvalue))) 0)
(error "Can't plot an empty vector"))
@ -1098,9 +1099,9 @@ This \"dumb\" driver will be present in Gnuplot 3.0."
(buffer-substring (match-beginning 1)
(match-end 1)))))))
(unless yerr
(setq lenbl (or (equal mode "lines")
(setq lenbl (or (equal mode "lines")
(equal mode "linespoints"))
penbl (or (equal mode "points")
penbl (or (equal mode "points")
(equal mode "linespoints")))
(if lines
(or (eq lines t)
@ -1117,7 +1118,7 @@ This \"dumb\" driver will be present in Gnuplot 3.0."
(setq errform
(condition-case nil
(math-contains-sdev-p
(eval (intern
(eval (intern
(concat "var-"
(save-excursion
(re-search-backward ":\\(.*\\)\\}")
@ -1134,7 +1135,7 @@ This \"dumb\" driver will be present in Gnuplot 3.0."
(if penbl "linespoints" "lines")
(if penbl "points" "dots"))))
(if (and pstyle (> pstyle 0))
(insert " "
(insert " "
(if (and lstyle (> lstyle 0)) (int-to-string lstyle) "1")
" " (int-to-string pstyle))
(if (and lstyle (> lstyle 0))