|
@@ -109,7 +109,8 @@ will be added. Returns the resulting property list."
|
|
|
|
|
|
(defun org-plot-quote-tsv-field (s)
|
|
|
"Quote field S for export to gnuplot."
|
|
|
- (if (string-match org-table-number-regexp s) s
|
|
|
+ (if (or (string-match org-table-number-regexp s)
|
|
|
+ (plist-get params :timeind)) s
|
|
|
(if (string-match org-ts-regexp3 s)
|
|
|
(org-plot-quote-timestamp-field s)
|
|
|
(concat "\"" (mapconcat 'identity (split-string s "\"") "\"\"") "\""))))
|
|
@@ -312,7 +313,9 @@ line directly before or after the table."
|
|
|
(when y-labels (plist-put params :ylabels y-labels)))))
|
|
|
;; check for timestamp ind column
|
|
|
(let ((ind (- (plist-get params :ind) 1)))
|
|
|
- (when (and (>= ind 0) (equal '2d (plist-get params :plot-type)))
|
|
|
+ (when (and (>= ind 0) (equal '2d (plist-get params :plot-type))
|
|
|
+ (not (or (plist-get params :timeind)
|
|
|
+ (plist-get params :textind))))
|
|
|
(if (= (length
|
|
|
(delq 0 (mapcar
|
|
|
(lambda (el)
|