[Emacs-diffs] emacs/lisp ChangeLog subr.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/08/30 18:17:23

Modified files:
        lisp           : ChangeLog subr.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16066&r2=1.16067
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/subr.el?cvsroot=emacs&r1=1.647&r2=1.648

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16066
retrieving revision 1.16067
diff -u -b -r1.16066 -r1.16067
--- ChangeLog   30 Aug 2009 15:13:35 -0000      1.16066
+++ ChangeLog   30 Aug 2009 18:17:20 -0000      1.16067
@@ -1,3 +1,8 @@
+2009-08-30  Juanma Barranquero  <address@hidden>
+
+       * subr.el (do-after-load-evaluation): Fix last change: use `mapc'
+       instead of `dolist' to avoid a recursive require when bootstrapping.
+
 2009-08-30  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/lisp.el (field-complete): Use minibuffer-complete.

Index: subr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/subr.el,v
retrieving revision 1.647
retrieving revision 1.648
diff -u -b -r1.647 -r1.648
--- subr.el     29 Aug 2009 22:27:23 -0000      1.647
+++ subr.el     30 Aug 2009 18:17:22 -0000      1.648
@@ -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)
+  (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)))))
+             (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.