diff options
| author | Richard M. Stallman <rms@gnu.org> | 2008-01-25 22:50:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2008-01-25 22:50:33 +0000 |
| commit | 8f696e65587ebacf9a0bb812938ab1fc94e921bb (patch) | |
| tree | 65a3df04d73df7699bcd13babc9fc3a110b28493 /lisp/loadhist.el | |
| parent | b35c64e48f4d1d71e7bb3b1bfc0b1de2d2eb3f9a (diff) | |
| download | emacs-8f696e65587ebacf9a0bb812938ab1fc94e921bb.tar.gz | |
(file-provides, file-requires): Push the filename right.
Diffstat (limited to 'lisp/loadhist.el')
| -rw-r--r-- | lisp/loadhist.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/loadhist.el b/lisp/loadhist.el index 5aaa06b0a11..71e81ae4221 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -74,7 +74,7 @@ A library name is equivalent to the file name that `load-library' would load." (let (provides) (dolist (x (file-loadhist-lookup file) provides) (when (eq (car-safe x) 'provide) - (push x provides))))) + (push (cdr x) provides))))) (defun file-requires (file) "Return the list of features required by FILE as it was loaded. @@ -83,7 +83,7 @@ A library name is equivalent to the file name that `load-library' would load." (let (requires) (dolist (x (file-loadhist-lookup file) requires) (when (eq (car-safe x) 'require) - (push x requires))))) + (push (cdr x) requires))))) (defsubst file-set-intersect (p q) "Return the set intersection of two lists." |