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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 06aeaca6421077f40bd9ac80f9a5f9b10b651016..820aa6fc7647f55f5b8d77a113ab3d6b07abfad7 100644 (file)
--- 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 8bc352bfb1aa5427924c475da2bcc6c83a1441f8..5e9470da5f3b3799cb61d962d0087d321d5ebab4 100644 (file)
--- 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