diff options
| author | Markus Rost <rost@math.uni-bielefeld.de> | 2002-11-14 21:38:12 +0000 |
|---|---|---|
| committer | Markus Rost <rost@math.uni-bielefeld.de> | 2002-11-14 21:38:12 +0000 |
| commit | f954e891f8fddc2128a267ad57071e4636c4cddb (patch) | |
| tree | 6c7527547e1ca6395fe5f745bca6b01f946678f4 /lisp/cus-dep.el | |
| parent | 1b527a7e027c5899ae83d5fe53f64a6f2cefdf07 (diff) | |
| download | emacs-f954e891f8fddc2128a267ad57071e4636c4cddb.tar.gz | |
(custom-make-dependencies): Bind load-file-name.
Diffstat (limited to 'lisp/cus-dep.el')
| -rw-r--r-- | lisp/cus-dep.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el index 6794b196930..b923dfcbacd 100644 --- a/lisp/cus-dep.el +++ b/lisp/cus-dep.el @@ -54,7 +54,8 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS" (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]*" |