babel: fixed bug where :exports was forced to "results" whenever :file was set

This commit is contained in:
Eric Schulte 2010-01-09 12:43:03 -07:00
parent b926869f0d
commit 682d7a3193
1 changed files with 3 additions and 1 deletions

View File

@ -865,7 +865,9 @@ parameters when merging lists."
(:file (:file
(when (cdr pair) (when (cdr pair)
(setq results (e-merge results-exclusive-groups results '("file"))) (setq results (e-merge results-exclusive-groups results '("file")))
(unless (or (member "both" exports) (member "none" exports)) (unless (or (member "both" exports)
(member "none" exports)
(member "code" exports))
(setq exports (e-merge exports-exclusive-groups exports '("results")))) (setq exports (e-merge exports-exclusive-groups exports '("results"))))
(setq params (cons pair (assq-delete-all (car pair) params))))) (setq params (cons pair (assq-delete-all (car pair) params)))))
(:exports (:exports