From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Thu, 14 Nov 2002 21:38:12 +0000 (+0000)
Subject: (custom-make-dependencies): Bind load-file-name.
X-Git-Tag: ttn-vms-21-2-B4~12440
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f954e891f8fddc2128a267ad57071e4636c4cddb;p=emacs.git

(custom-make-dependencies): Bind load-file-name.
---

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  <rost@math.ohio-state.edu>
+
+	* 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  <reingold@emr.cs.iit.edu>
 
 	* 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]*"