diff options
| author | Richard M. Stallman | 2008-01-25 22:50:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2008-01-25 22:50:33 +0000 |
| commit | 8f696e65587ebacf9a0bb812938ab1fc94e921bb (patch) | |
| tree | 65a3df04d73df7699bcd13babc9fc3a110b28493 | |
| parent | b35c64e48f4d1d71e7bb3b1bfc0b1de2d2eb3f9a (diff) | |
| download | emacs-8f696e65587ebacf9a0bb812938ab1fc94e921bb.tar.gz emacs-8f696e65587ebacf9a0bb812938ab1fc94e921bb.zip | |
(file-provides, file-requires): Push the filename right.
| -rw-r--r-- | lisp/loadhist.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/loadhist.el b/lisp/loadhist.el index 5aaa06b0a11..71e81ae4221 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el | |||
| @@ -74,7 +74,7 @@ A library name is equivalent to the file name that `load-library' would load." | |||
| 74 | (let (provides) | 74 | (let (provides) |
| 75 | (dolist (x (file-loadhist-lookup file) provides) | 75 | (dolist (x (file-loadhist-lookup file) provides) |
| 76 | (when (eq (car-safe x) 'provide) | 76 | (when (eq (car-safe x) 'provide) |
| 77 | (push x provides))))) | 77 | (push (cdr x) provides))))) |
| 78 | 78 | ||
| 79 | (defun file-requires (file) | 79 | (defun file-requires (file) |
| 80 | "Return the list of features required by FILE as it was loaded. | 80 | "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." | |||
| 83 | (let (requires) | 83 | (let (requires) |
| 84 | (dolist (x (file-loadhist-lookup file) requires) | 84 | (dolist (x (file-loadhist-lookup file) requires) |
| 85 | (when (eq (car-safe x) 'require) | 85 | (when (eq (car-safe x) 'require) |
| 86 | (push x requires))))) | 86 | (push (cdr x) requires))))) |
| 87 | 87 | ||
| 88 | (defsubst file-set-intersect (p q) | 88 | (defsubst file-set-intersect (p q) |
| 89 | "Return the set intersection of two lists." | 89 | "Return the set intersection of two lists." |