Mercurial > emacs
changeset 35233:f5e1761e4c75
(load-symbol-file-load-history): New function extracted
from function symbol-file.
(symbol-file): Use it.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 11 Jan 2001 14:24:22 +0000 |
| parents | 4e0f20145b5f |
| children | c6a74e51d185 |
| files | lisp/help.el |
| diffstat | 1 files changed, 13 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Thu Jan 11 14:24:02 2001 +0000 +++ b/lisp/help.el Thu Jan 11 14:24:22 2001 +0000 @@ -569,12 +569,10 @@ That file records the part of `load-history' for preloaded files, which is cleared out before dumping to make Emacs smaller.") -(defun symbol-file (function) - "Return the input source from which FUNCTION was loaded. -The value is normally a string that was passed to `load': -either an absolute file name, or a library name -\(with no directory name and no `.el' or `.elc' at the end). -It can also be nil, if the definition is not associated with any file." +(defun load-symbol-file-load-history () + "Load the file `fns-VERSION.el' in `exec-directory' if not already done. +That file records the part of `load-history' for preloaded files, +which is cleared out before dumping to make Emacs smaller." (unless symbol-file-load-history-loaded (load (expand-file-name ;; fns-XX.YY.ZZ.el does not work on DOS filesystem. @@ -584,7 +582,15 @@ exec-directory) ;; The file name fns-%s.el already has a .el extension. nil nil t) - (setq symbol-file-load-history-loaded t)) + (setq symbol-file-load-history-loaded t))) + +(defun symbol-file (function) + "Return the input source from which FUNCTION was loaded. +The value is normally a string that was passed to `load': +either an absolute file name, or a library name +\(with no directory name and no `.el' or `.elc' at the end). +It can also be nil, if the definition is not associated with any file." + (load-symbol-file-load-history) (let ((files load-history) file functions) (while files