ob: fix collection of table column names during export

* lisp/ob.el (org-babel-process-params): Make this function
  idempotent, as it will sometimes be called multiple times.
This commit is contained in:
Eric Schulte 2011-04-04 11:28:45 -06:00
parent b869bc5a7e
commit 7021f70f02
1 changed files with 4 additions and 2 deletions

View File

@ -996,8 +996,10 @@ may be specified in the current buffer."
(append
(mapcar (lambda (var) (cons :var var)) (car vars-and-names))
(list
(cons :colname-names (cadr vars-and-names))
(cons :rowname-names (caddr vars-and-names))
(cons :colname-names (or (cdr (assoc :colname-names params))
(cadr vars-and-names)))
(cons :rowname-names (or (cdr (assoc :rowname-names params))
(caddr vars-and-names)))
(cons :result-params result-params)
(cons :result-type (cond ((member "output" result-params) 'output)
((member "value" result-params) 'value)