Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
234:946e7f6ce379 235:85a06df23a9a
63 (error "%s is not a currently loaded feature" (symbol-name feature)) 63 (error "%s is not a currently loaded feature" (symbol-name feature))
64 (car (feature-symbols feature)))) 64 (car (feature-symbols feature))))
65 65
66 (defun file-provides (file) 66 (defun file-provides (file)
67 "Return the list of features provided by FILE." 67 "Return the list of features provided by FILE."
68 (let ((symbols (cdr (assoc file load-history))) (provides nil)) 68 (let ((symbols (or (cdr (assoc file load-history))
69 (cdr (assoc (file-name-sans-extension file) load-history))
70 (cdr (assoc (concat file ".el") load-history))
71 (cdr (assoc (concat file ".elc") load-history))))
72 (provides nil))
69 (mapcar 73 (mapcar
70 (function (lambda (x) 74 (function (lambda (x)
71 (if (and (consp x) (eq (car x) 'provide)) 75 (if (and (consp x) (eq (car x) 'provide))
72 (setq provides (cons (cdr x) provides))))) 76 (setq provides (cons (cdr x) provides)))))
73 symbols) 77 symbols)