Mercurial > emacs
changeset 48335:ce84fde651fc
(custom-make-dependencies): Bind load-file-name.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Thu, 14 Nov 2002 21:37:44 +0000 |
| parents | 89f1b9ff174d |
| children | e3665d7ef836 |
| files | lisp/cus-dep.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-dep.el Thu Nov 14 21:37:10 2002 +0000 +++ b/lisp/cus-dep.el Thu Nov 14 21:37:44 2002 +0000 @@ -54,7 +54,8 @@ (insert-file-contents file) (goto-char (point-min)) (string-match "\\`\\(.*\\)\\.el\\'" file) - (let ((name (file-name-nondirectory (match-string 1 file)))) + (let ((name (file-name-nondirectory (match-string 1 file))) + (load-file-name file)) (if (save-excursion (re-search-forward (concat "(provide[ \t\n]+\\('\\|(quote[ \t\n]\\)[ \t\n]*"