mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-29 11:02:33 +00:00
Code

removed 'cl functions from org-exp.el to assuage elisp compiler

Browse Source
This commit is contained in:
Eric Schulte 2010-06-17 10:27:58 -07:00
parent 4096c92e89
commit 18810580f5
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-exp.el
View File

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