diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-09-21 16:32:55 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-09-21 16:32:55 +0000 |
| commit | 1cc0e307890475daee3c32e7814419482d094af5 (patch) | |
| tree | 71f7f89c941f30149f6c7dc534e634eb6f181dbe /lisp/loadhist.el | |
| parent | cac84ff0a204e5e3a98d6c962e4528fb137575f9 (diff) | |
| download | emacs-1cc0e307890475daee3c32e7814419482d094af5.tar.gz | |
(load-history-loaded): New variable.
(symbol-file): Load etc/fns-VERSION.el if that has not been done.
Diffstat (limited to 'lisp/loadhist.el')
| -rw-r--r-- | lisp/loadhist.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/loadhist.el b/lisp/loadhist.el index 1c727688ce7..5cebf2d63c4 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -31,9 +31,18 @@ ;;; Code: +(defvar load-history-loaded nil + "Non-nil means we have loaded the file `etc/fns-VERSION.el'. +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) + data-directory)) + (setq load-history-loaded t)) (catch 'foundit (mapcar (function (lambda (x) (if (memq sym (cdr x)) (throw 'foundit (car x))))) |