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

View file

@ -865,7 +865,9 @@ parameters when merging lists."
(:file
(when (cdr pair)
(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 params (cons pair (assq-delete-all (car pair) params)))))
(:exports