Commit 8f696e65 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(file-provides, file-requires): Push the filename right.

parent b35c64e4
......@@ -74,7 +74,7 @@ A library name is equivalent to the file name that `load-library' would load."
(let (provides)
(dolist (x (file-loadhist-lookup file) provides)
(when (eq (car-safe x) 'provide)
(push x provides)))))
(push (cdr x) provides)))))
(defun file-requires (file)
"Return the list of features required by FILE as it was loaded.
......@@ -83,7 +83,7 @@ A library name is equivalent to the file name that `load-library' would load."
(let (requires)
(dolist (x (file-loadhist-lookup file) requires)
(when (eq (car-safe x) 'require)
(push x requires)))))
(push (cdr x) requires)))))
(defsubst file-set-intersect (p q)
"Return the set intersection of two lists."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment