diff lisp/subr.el @ 104737:8224438aa3cd

* subr.el (do-after-load-evaluation): Fix last change: use `mapc' instead of `dolist' to avoid a recursive require when bootstrapping.

--- a/lisp/subr.el	Sun Aug 30 15:13:35 2009 +0000
+++ b/lisp/subr.el	Sun Aug 30 18:17:20 2009 +0000
@@ -1688,11 +1688,12 @@
 (defun do-after-load-evaluation (abs-file)
   "Evaluate all `eval-after-load' forms, if any, for ABS-FILE.
 ABS-FILE, a string, should be the absolute true name of a file just loaded."
-  (dolist (a-l-element after-load-alist)
-    (when (and (stringp (car a-l-element))
-	       (string-match-p (car a-l-element) abs-file))
-      ;; discard the file name regexp
-      (mapc #'eval (cdr a-l-element)))))
+  (mapc #'(lambda (a-l-element)
+	    (when (and (stringp (car a-l-element))
+		       (string-match-p (car a-l-element) abs-file))
+	      ;; discard the file name regexp
+	      (mapc #'eval (cdr a-l-element))))
+	after-load-alist))
 
 (defun eval-next-after-load (file)
   "Read the following input sexp, and run it whenever FILE is loaded.