Mercurial > emacs

changeset 87973:b3422590d572

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(file-provides, file-requires): Push the filename right.
author Richard M. Stallman <rms@gnu.org>
date Fri, 25 Jan 2008 22:50:33 +0000
parents f42bf2712087
children 97c3cc0a167b
files lisp/loadhist.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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."