diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-02-25 10:44:25 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-02-25 10:44:25 -0700 |
commit | 09886e4f828ca01540c157c4b7f3ec47be21a5e5 (patch) | |
tree | c00e1f5f30514b0e34d14a41df221894c9b6f607 | |
parent | 32da182a9063fe56471d7fcfe5f8af3699f90285 (diff) | |
download | org-mode-09886e4f828ca01540c157c4b7f3ec47be21a5e5.tar.gz |
org-plot: now produces more intelligent output when empty lines look like text columns
-rw-r--r-- | lisp/org-plot.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org-plot.el b/lisp/org-plot.el index 4cf89b0..6ffba99 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 |