Mercurial > emacs
changeset 103561:c2bcca5f9ba3
(calc-graph-plot): Avoid assignment to free variable `filename'.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 23 Jun 2009 07:28:19 +0000 |
| parents | 10c7d2fa1e40 |
| children | decf5e666b9e |
| files | lisp/ChangeLog lisp/calc/calc-graph.el |
| diffstat | 2 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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