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

2 files changed, 7 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 06aeaca6421..820aa6fc764 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/calc/calc-graph.el b/lisp/calc/calc-graph.el
index 8bc352bfb1a..5e9470da5f3 100644
--- a/lisp/calc/calc-graph.el
+++ b/lisp/calc/calc-graph.el
@@ -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