Mercurial > emacs

diff lisp/loadhist.el @ 91367:c70e45a7acfd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-324
author Miles Bader <miles@gnu.org>
date Wed, 30 Jan 2008 07:57:28 +0000
parents 606f2d163a64 b3422590d572
children
line wrap: on
line diff
--- a/lisp/loadhist.el	Wed Jan 30 06:40:42 2008 +0000
+++ b/lisp/loadhist.el	Wed Jan 30 07:57:28 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."