Mercurial > hg > xemacs-beta

comparison lisp/loadhist.el @ 3511:1ee424086c62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-07-16 12:23:57 by aidan] Add docstrings to source-root, build-root, rename them
author aidan
date Sun, 16 Jul 2006 12:23:58 +0000
parents 959746c534f6
children 69e6352406f0
comparison
equal deleted inserted replaced
3510:06a586083be3 3511:1ee424086c62
47 (return-from look-up-symbol-file (car entry)))) 47 (return-from look-up-symbol-file (car entry))))
48 (when (or (and (boundp sym) (built-in-variable-type sym)) 48 (when (or (and (boundp sym) (built-in-variable-type sym))
49 (and (fboundp sym) (subrp (symbol-function sym)))) 49 (and (fboundp sym) (subrp (symbol-function sym))))
50 (let ((built-in-file (built-in-symbol-file sym))) 50 (let ((built-in-file (built-in-symbol-file sym)))
51 (if built-in-file 51 (if built-in-file
52 (concat build-root "/src/" built-in-file)))))) 52 (concat source-directory "/src/" built-in-file))))))
53 53
54 (defun feature-symbols (feature) 54 (defun feature-symbols (feature)
55 "Return the file and list of symbols associated with a given FEATURE." 55 "Return the file and list of symbols associated with a given FEATURE."
56 (let ((pair `(provide . ,feature))) 56 (let ((pair `(provide . ,feature)))
57 (dolist (entry load-history) 57 (dolist (entry load-history)