(file-provides, file-requires): Push the filename right.

diff --git a/lisp/loadhist.el b/lisp/loadhist.el
index 5aaa06b0a119d6c414186f580c97ac83b625311e..71e81ae4221f9b486e5edd603b47fe4ca4aacd44 100644 (file)
--- 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."