summaryrefslogtreecommitdiff
path: root/lisp/loadhist.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/loadhist.el')
-rw-r--r--lisp/loadhist.el4
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."