# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1201301433 0
# Node ID b3422590d5726d55674bd067e0aafa4a69b78dc1
# Parent  f42bf27120879d40ba19b8da0496864b74410661
(file-provides, file-requires): Push the filename right.

diff -r f42bf2712087 -r b3422590d572 lisp/loadhist.el
--- a/lisp/loadhist.el	Fri Jan 25 18:56:46 2008 +0000
+++ b/lisp/loadhist.el	Fri Jan 25 22:50:33 2008 +0000
@@ -74,7 +74,7 @@
   (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 @@
   (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."