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
27af61fe
Commit
27af61fe
authored
Jan 02, 2005
by
Richard M. Stallman
Browse files
(file-loadhist-lookup): New function.
(file-provides, file-requires): Use it.
parent
3625f6b7
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
19 additions
and
2 deletions
+19
-2
lisp/loadhist.el
lisp/loadhist.el
+19
-2
No files found.
lisp/loadhist.el
View file @
27af61fe
...
...
@@ -51,9 +51,26 @@ a buffer with no associated file, or an `eval-region', return nil."
(
error
"%S is not a currently loaded feature"
feature
)
(
car
(
feature-symbols
feature
))))
(
defun
file-loadhist-lookup
(
file
)
"Return the `load-history' element for FILE."
;; First look for FILE as given.
(
let
((
symbols
(
assoc
file
load-history
)))
;; Try converting a library name to an absolute file name.
(
and
(
null
symbols
)
(
let
((
absname
(
find-library-name
file
)))
(
if
(
not
(
equal
absname
file
))
(
setq
symbols
(
cdr
(
assoc
absname
load-history
))))))
;; Try converting an absolute file name to a library name.
(
and
(
null
symbols
)
(
string-match
"[.]el\\'"
file
)
(
let
((
libname
(
file-name-nondirectory
file
)))
(
string-match
"[.]el\\'"
libname
)
(
setq
libname
(
substring
libname
0
(
match-beginning
0
)))
(
setq
symbols
(
cdr
(
assoc
libname
load-history
)))))
symbols
))
(
defun
file-provides
(
file
)
"Return the list of features provided by FILE."
(
let
((
symbols
(
cdr
(
assoc
file
load
-
hist
ory
)
))
(
let
((
symbols
(
file
-
loadhist
-lookup
file
))
provides
)
(
mapc
(
lambda
(
x
)
(
if
(
and
(
consp
x
)
(
eq
(
car
x
)
'provide
))
...
...
@@ -63,7 +80,7 @@ a buffer with no associated file, or an `eval-region', return nil."
(
defun
file-requires
(
file
)
"Return the list of features required by FILE."
(
let
((
symbols
(
cdr
(
assoc
file
load
-
hist
ory
)
))
(
let
((
symbols
(
file
-
loadhist
-lookup
file
))
requires
)
(
mapc
(
lambda
(
x
)
(
if
(
and
(
consp
x
)
(
eq
(
car
x
)
'require
))
...
...
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