mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 19:07:52 +00:00
Code Releases Activity

Revert "org-plot: Handle explicit date/time index"

Browse source 
This reverts commit e2b6c506c2.
This commit is contained in:
Bastien Guerry 2014-03-25 09:18:25 +01:00
parent ad16ef42da
commit 6289868d28
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org-plot.el
View file

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