|
@@ -294,6 +294,7 @@ line directly before or after the table."
|
|
|
(table (org-table-to-lisp))
|
|
|
(num-cols (length (if (eq (first table) 'hline) (second table)
|
|
|
(first table)))))
|
|
|
+ (run-with-idle-timer 0.1 nil #'delete-file data-file)
|
|
|
(while (equal 'hline (first table)) (setf table (cdr table)))
|
|
|
(when (equal (second table) 'hline)
|
|
|
(setf params (plist-put params :labels (first table))) ;; headers to labels
|
|
@@ -344,8 +345,7 @@ line directly before or after the table."
|
|
|
(gnuplot-mode)
|
|
|
(gnuplot-send-buffer-to-gnuplot))
|
|
|
;; cleanup
|
|
|
- (bury-buffer (get-buffer "*gnuplot*"))
|
|
|
- (run-with-idle-timer 0.1 nil (lambda () (delete-file data-file))))))
|
|
|
+ (bury-buffer (get-buffer "*gnuplot*")))))
|
|
|
|
|
|
(provide 'org-plot)
|
|
|
|