Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
50ca4be0
Commit
50ca4be0
authored
Jan 11, 2001
by
Gerd Moellmann
Browse files
(load-symbol-file-load-history): New function extracted
from function symbol-file. (symbol-file): Use it.
parent
422717d1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
7 deletions
+13
-7
lisp/help.el
lisp/help.el
+13
-7
No files found.
lisp/help.el
View file @
50ca4be0
...
...
@@ -569,12 +569,10 @@ If that doesn't give a function, return nil."
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 @@ It can also be nil, if the definition is not associated with any file."
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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment