diff options
| author | Eric Schulte <schulte.eric@gmail.com> | 2011-04-04 11:28:45 -0600 |
|---|---|---|
| committer | Eric Schulte <schulte.eric@gmail.com> | 2011-04-04 11:28:45 -0600 |
| commit | 7021f70f0221f57fcd35792b76e5dfb3a5f4025f (patch) | |
| tree | 69b5f34cc63e4f1d0e80c3e3b43cc7859bddd956 | |
| parent | b869bc5a7e792843beda1fb86b157fbd0376eef0 (diff) | |
| download | org-mode-7021f70f0221f57fcd35792b76e5dfb3a5f4025f.tar.gz | |
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.
| -rw-r--r-- | lisp/ob.el | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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) |