Commit f954e891 authored by Markus Rost's avatar Markus Rost
Browse files

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

parent 1b527a7e
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> 2002-11-14 Edward M. Reingold <reingold@emr.cs.iit.edu>
   
* calendar/diary-lib.el (make-diary-entry): Allow for local variables * calendar/diary-lib.el (make-diary-entry): Allow for local variables
......
...@@ -54,7 +54,8 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS" ...@@ -54,7 +54,8 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(insert-file-contents file) (insert-file-contents file)
(goto-char (point-min)) (goto-char (point-min))
(string-match "\\`\\(.*\\)\\.el\\'" file) (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 (if (save-excursion
(re-search-forward (re-search-forward
(concat "(provide[ \t\n]+\\('\\|(quote[ \t\n]\\)[ \t\n]*" (concat "(provide[ \t\n]+\\('\\|(quote[ \t\n]\\)[ \t\n]*"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment