Browse Source

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

Eric Schulte 14 years ago
parent
commit
18810580f5
1 changed files with 3 additions and 5 deletions
  1. 3 5
      lisp/org-exp.el

+ 3 - 5
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)