|
@@ -580,6 +580,10 @@ line directly before or after the table."
|
|
|
(dolist (pair org-plot/gnuplot-default-options)
|
|
|
(unless (plist-member params (car pair))
|
|
|
(setf params (plist-put params (car pair) (cdr pair)))))
|
|
|
+ ;; Collect options.
|
|
|
+ (save-excursion (while (and (equal 0 (forward-line -1))
|
|
|
+ (looking-at "[[:space:]]*#\\+"))
|
|
|
+ (setf params (org-plot/collect-options params))))
|
|
|
;; collect table and table information
|
|
|
(let* ((data-file (make-temp-file "org-plot"))
|
|
|
(table (let ((tbl (org-table-to-lisp)))
|
|
@@ -587,7 +591,7 @@ line directly before or after the table."
|
|
|
('y t)
|
|
|
('yes t)
|
|
|
('t t))
|
|
|
- (if (memq 'hline tbl)
|
|
|
+ (if (not (memq 'hline tbl))
|
|
|
(setq tbl (apply #'cl-mapcar #'list tbl))
|
|
|
;; When present, remove hlines as they can't (currentily) be easily transposed.
|
|
|
(setq tbl (apply #'cl-mapcar #'list
|