# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1245742099 0
# Node ID c2bcca5f9ba3d997f5c20feb72c6c1fdd926e8cd
# Parent  10c7d2fa1e4093c1ca6b1eabe7ddea06add15580
(calc-graph-plot): Avoid assignment to free variable `filename'.

diff -r 10c7d2fa1e40 -r c2bcca5f9ba3 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jun 23 07:25:12 2009 +0000
+++ b/lisp/ChangeLog	Tue Jun 23 07:28:19 2009 +0000
@@ -1,5 +1,8 @@
 2009-06-23  Glenn Morris  <rgm@gnu.org>
 
+	* 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.
diff -r 10c7d2fa1e40 -r c2bcca5f9ba3 lisp/calc/calc-graph.el
--- a/lisp/calc/calc-graph.el	Tue Jun 23 07:25:12 2009 +0000
+++ b/lisp/calc/calc-graph.el	Tue Jun 23 07:28:19 2009 +0000
@@ -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))
-	 (write-region (point-min) (point-max) filename nil 'quiet)
-	 (calc-gnuplot-command "load" (prin1-to-string filename))
+						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)))
 	 (or (equal output "STDOUT")
 	     calc-gnuplot-keep-outfile
 	     (progn   ; need to close the output file before printing/plotting