From 1cc0e307890475daee3c32e7814419482d094af5 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 21 Sep 1998 16:32:55 +0000 Subject: [PATCH] (load-history-loaded): New variable. (symbol-file): Load etc/fns-VERSION.el if that has not been done. --- lisp/loadhist.el | 9 +++++++++ 1 file changed, 9 insertions(+) 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))))) -- 2.39.2