diff options
| author | Eric Schulte <schulte.eric@gmail.com> | 2010-06-17 10:27:58 -0700 |
|---|---|---|
| committer | Eric Schulte <schulte.eric@gmail.com> | 2010-06-17 10:27:58 -0700 |
| commit | 18810580f51f35fb852c7dbfadcf4f49add56fcd (patch) | |
| tree | 0b2817c3eda54f34e57d3d46196b28559e50c300 | |
| parent | 4096c92e89fa2972ed0f83ce3442c97b0ac6b83e (diff) | |
| download | org-mode-18810580f51f35fb852c7dbfadcf4f49add56fcd.tar.gz | |
removed 'cl functions from org-exp.el to assuage elisp compiler
| -rw-r--r-- | lisp/org-exp.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/org-exp.el b/lisp/org-exp.el index 919288a..361f172 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -2005,14 +2005,12 @@ TYPE must be a string, any of: "Recursively include files aborting on circular inclusion." (let ((now (list org-current-export-file)) all) (while now - (setq all (remove-duplicates (append now all))) + (setq all (append now all)) (setq now (org-export-handle-include-files)) (let ((intersection (delq nil - (mapcar - (lambda (el) (when (member el all) el)) - now)))) - (when (intersection now all) + (mapcar (lambda (el) (when (member el all) el)) now)))) + (when intersection (error "recursive #+INCLUDE: %S" intersection)))))) (defun org-get-file-contents (file &optional prefix prefix1 markup) |