|
@@ -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)
|