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

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/06/23 07:28:21

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

Log message:
        (calc-graph-plot): Avoid assignment to free variable `filename'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15721&r2=1.15722
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calc/calc-graph.el?cvsroot=emacs&r1=1.30&r2=1.31

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15721
retrieving revision 1.15722
diff -u -b -r1.15721 -r1.15722
--- ChangeLog   23 Jun 2009 07:25:12 -0000      1.15721
+++ ChangeLog   23 Jun 2009 07:28:19 -0000      1.15722
@@ -1,5 +1,8 @@
 2009-06-23  Glenn Morris  <address@hidden>
 
+       * calc/calc-graph.el (calc-graph-plot): Avoid assignment to free
+       variable `filename'.
+
        * comint.el (comint-insert-input): Doc fix.
 
        * Makefile.in (ELCFILES): Fix typo in previous change.

Index: calc/calc-graph.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calc/calc-graph.el,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -b -r1.30 -r1.31
--- calc/calc-graph.el  5 Jan 2009 03:20:01 -0000       1.30
+++ calc/calc-graph.el  23 Jun 2009 07:28:21 -0000      1.31
@@ -529,10 +529,10 @@
             (calc-clear-command-flag 'clear-message)
             (message "No data to plot!"))
         (setq calc-graph-data-cache-limit (max calc-graph-curve-num
-                                               calc-graph-data-cache-limit)
-              filename (calc-temp-file-name 0))
+                                               calc-graph-data-cache-limit))
+        (let ((filename (calc-temp-file-name 0)))
         (write-region (point-min) (point-max) filename nil 'quiet)
-        (calc-gnuplot-command "load" (prin1-to-string filename))
+          (calc-gnuplot-command "load" (prin1-to-string filename)))
         (or (equal output "STDOUT")
             calc-gnuplot-keep-outfile
             (progn   ; need to close the output file before printing/plotting