Mercurial > emacs
comparison lisp/calc/calc-graph.el @ 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 | a9dc0e7c3f2b |
| children | 6bb8dd0cfa31 |
comparison
equal
deleted
inserted
replaced
| 103560:10c7d2fa1e40 | 103561:c2bcca5f9ba3 |
|---|---|
| 527 (progn | 527 (progn |
| 528 (calc-gnuplot-command "clear") | 528 (calc-gnuplot-command "clear") |
| 529 (calc-clear-command-flag 'clear-message) | 529 (calc-clear-command-flag 'clear-message) |
| 530 (message "No data to plot!")) | 530 (message "No data to plot!")) |
| 531 (setq calc-graph-data-cache-limit (max calc-graph-curve-num | 531 (setq calc-graph-data-cache-limit (max calc-graph-curve-num |
| 532 calc-graph-data-cache-limit) | 532 calc-graph-data-cache-limit)) |
| 533 filename (calc-temp-file-name 0)) | 533 (let ((filename (calc-temp-file-name 0))) |
| 534 (write-region (point-min) (point-max) filename nil 'quiet) | 534 (write-region (point-min) (point-max) filename nil 'quiet) |
| 535 (calc-gnuplot-command "load" (prin1-to-string filename)) | 535 (calc-gnuplot-command "load" (prin1-to-string filename))) |
| 536 (or (equal output "STDOUT") | 536 (or (equal output "STDOUT") |
| 537 calc-gnuplot-keep-outfile | 537 calc-gnuplot-keep-outfile |
| 538 (progn ; need to close the output file before printing/plotting | 538 (progn ; need to close the output file before printing/plotting |
| 539 (setq calc-graph-last-output "STDOUT") | 539 (setq calc-graph-last-output "STDOUT") |
| 540 (calc-gnuplot-command "set output"))) | 540 (calc-gnuplot-command "set output"))) |