From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 25 Jan 2008 22:50:33 +0000 (+0000)
Subject: (file-provides, file-requires): Push the filename right.
X-Git-Tag: emacs-pretest-23.0.90~8409
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f696e65587ebacf9a0bb812938ab1fc94e921bb;p=emacs.git

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

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."