Mercurial > hg > xemacs-beta

diff lisp/loadhist.el @ 235:85a06df23a9a r20-5b16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b16
author cvs
date Mon, 13 Aug 2007 10:14:40 +0200
parents 52952cbfc5b5
children 57709be46d1b
line wrap: on
line diff
--- a/lisp/loadhist.el	Mon Aug 13 10:14:17 2007 +0200
+++ b/lisp/loadhist.el	Mon Aug 13 10:14:40 2007 +0200
@@ -65,7 +65,11 @@
 
 (defun file-provides (file)
   "Return the list of features provided by FILE."
-  (let ((symbols (cdr (assoc file load-history))) (provides nil))
+  (let ((symbols (or (cdr (assoc file load-history))
+		     (cdr (assoc (file-name-sans-extension file) load-history))
+		     (cdr (assoc (concat file ".el") load-history))
+		     (cdr (assoc (concat file ".elc") load-history))))
+	(provides nil))
     (mapcar
      (function (lambda (x)
 		 (if (and (consp x) (eq (car x) 'provide))