;;; Code:
-(defvar load-history-loaded nil
- "Non-nil means we have loaded the file `fns-VERSION.el' in `exec-directory'.
-That file records the part of `load-history' for preloaded files,
-which is cleared out before dumping to make Emacs smaller.")
-
-(defun symbol-file (sym)
- "Return the input source from which SYM was loaded.
-This is a file name, or nil if the source was a buffer with no associated file."
- (unless load-history-loaded
- (load (expand-file-name (format "fns-%s.el" emacs-version)
- exec-directory))
- (setq load-history-loaded t))
- (catch 'foundit
- (mapcar
- (function (lambda (x) (if (memq sym (cdr x)) (throw 'foundit (car x)))))
- load-history)
- nil))
-
(defun feature-symbols (feature)
"Return the file and list of symbols associated with a given FEATURE."
(catch 'foundit