mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

* subr.el (do-after-load-evaluation): Fix last change: use `mapc'

Browse Source 
instead of `dolist' to avoid a recursive require when bootstrapping.
This commit is contained in:
Juanma Barranquero 2009-08-30 18:17:20 +00:00
parent 73ebf88f15
commit 060c08b574
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-08-30 Juanma Barranquero <lekktu@gmail.com>
* 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 <monnier@iro.umontreal.ca>
* emacs-lisp/lisp.el (field-complete): Use minibuffer-complete.

11
lisp/subr.el
View File

@ -1688,11 +1688,12 @@ This function makes or adds to an entry on `after-load-alist'."
(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.