From f954e891f8fddc2128a267ad57071e4636c4cddb Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Thu, 14 Nov 2002 21:38:12 +0000 Subject: [PATCH] (custom-make-dependencies): Bind load-file-name. --- lisp/ChangeLog | 7 +++++++ lisp/cus-dep.el | 3 ++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 99723e479c1..175b7101e32 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2002-11-14 Markus Rost + + * custom.el (custom-declare-group): Remove unnecessary line of + code. + + * cus-dep.el (custom-make-dependencies): Bind load-file-name. + 2002-11-14 Edward M. Reingold * calendar/diary-lib.el (make-diary-entry): Allow for local variables 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]*" -- 2.39.2