emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] [misc-new-features 5/5] Fix a problem I was having with pl


From: Bastien
Subject: Re: [Orgmode] [misc-new-features 5/5] Fix a problem I was having with plots using a script. Org-plot was deleting the data file before gnuplot read it in. I've moved the deletion of the temporary data file to an idle timer, which has fixed the problem.
Date: Fri, 17 Jul 2009 19:03:06 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (gnu/linux)

Applied, thanks.

James TD Smith <address@hidden> writes:

> ---
>  lisp/org-plot.el |   14 +++++++-------
>  1 files changed, 7 insertions(+), 7 deletions(-)
>
> diff --git a/lisp/org-plot.el b/lisp/org-plot.el
> index 0e8f5a2..c9d61b3 100644
> --- a/lisp/org-plot.el
> +++ b/lisp/org-plot.el
> @@ -333,12 +333,12 @@ line directly before or after the table."
>        (with-temp-buffer
>       (if (plist-get params :script) ;; user script
>           (progn (insert
> -                    (org-plot/gnuplot-script data-file num-cols params t))
> -                   (insert "\n")
> -                   (insert-file-contents (plist-get params :script))
> -                   (goto-char (point-min))
> -                   (while (re-search-forward "$datafile" nil t)
> -                     (replace-match data-file nil nil)))
> +                 (org-plot/gnuplot-script data-file num-cols params t))
> +                (insert "\n")
> +                (insert-file-contents (plist-get params :script))
> +                (goto-char (point-min))
> +                (while (re-search-forward "$datafile" nil t)
> +                  (replace-match data-file nil nil)))
>         (insert
>          (org-plot/gnuplot-script data-file num-cols params)))
>       ;; graph table
> @@ -346,7 +346,7 @@ line directly before or after the table."
>       (gnuplot-send-buffer-to-gnuplot))
>        ;; cleanup
>        (bury-buffer (get-buffer "*gnuplot*"))
> -      (delete-file data-file))))
> +      (run-with-idle-timer 0.1 nil (lambda () (delete-file data-file))))))
>  
>  (provide 'org-plot)

-- 
 Bastien




reply via email to

[Prev in Thread] Current Thread [Next in Thread]