From f954e891f8fddc2128a267ad57071e4636c4cddb Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Thu, 14 Nov 2002 21:38:12 +0000 Subject: (custom-make-dependencies): Bind load-file-name. --- lisp/cus-dep.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/cus-dep.el') 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]*" -- cgit v1.2.1