From 09886e4f828ca01540c157c4b7f3ec47be21a5e5 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 25 Feb 2010 10:44:25 -0700 Subject: [PATCH] org-plot: now produces more intelligent output when empty lines look like text columns --- lisp/org-plot.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/org-plot.el b/lisp/org-plot.el index 4cf89b016..6ffba99a3 100644 --- a/lisp/org-plot.el +++ b/lisp/org-plot.el @@ -250,8 +250,10 @@ manner suitable for prepending to a user-specified script." (setf plot-lines (cons (format plot-str data-file - (or (and (not text-ind) ind - (> ind 0) (format "%d:" ind)) "") + (or (and ind (> ind 0) + (not (or (equal 'histograms (plist-get params :with)) + (equal 'hist (plist-get params :with)))) + (format "%d:" ind)) "") (+ 1 col) (if text-ind (format ":xticlabel(%d)" ind) "") with @@ -320,7 +322,6 @@ line directly before or after the table." (mapcar (lambda (row) (nth ind row)) table)))) 0) (plist-put params :timeind t) ;; check for text ind column - (if (or (string= (plist-get params :with) "hist") (> (length (delq 0 (mapcar