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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99723e479c1d8d394f4496c13c419457c301554c..175b7101e323d665543aca3862c8a9c9b5162c86 100644 (file)
--- 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 6794b196930b7c143cca02b61bce3be16ebb1b6f..b923dfcbacdda5fa1ec71f46b4f32b3a13abf795 100644 (file)
--- 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]*"