[Emacs-diffs] emacs/lisp ChangeLog calc/calc-graph.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/19 21:22:48

Modified files:
        lisp           : ChangeLog 
        lisp/calc      : calc-graph.el 

Log message:
        (calc-graph-lookup): Avoid assignment to free variable `var'.
        Delete trailing whitespace.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16216&r2=1.16217
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calc/calc-graph.el?cvsroot=emacs&r1=1.32&r2=1.33

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16216
retrieving revision 1.16217
diff -u -b -r1.16216 -r1.16217
--- ChangeLog   19 Sep 2009 21:11:40 -0000      1.16216
+++ ChangeLog   19 Sep 2009 21:22:45 -0000      1.16217
@@ -1,5 +1,8 @@
 2009-09-19  Glenn Morris  <address@hidden>
 
+       * 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.
 

Index: calc/calc-graph.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calc/calc-graph.el,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -b -r1.32 -r1.33
--- calc/calc-graph.el  7 Aug 2009 14:53:46 -0000       1.32
+++ calc/calc-graph.el  19 Sep 2009 21:22:48 -0000      1.33
@@ -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)