diff options
Diffstat (limited to 'lisp/cus-dep.el')
| -rw-r--r-- | lisp/cus-dep.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el index 5e74c68978f..091f832c092 100644 --- a/lisp/cus-dep.el +++ b/lisp/cus-dep.el @@ -42,9 +42,12 @@ ldefs-boot\\|cus-load\\|finder-inf\\|esh-groups\\|subdirs\\)\\.el$\\)" (defun custom-make-dependencies () "Batch function to extract custom dependencies from .el files. Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS" - (let ((enable-local-eval nil)) + (let ((enable-local-eval nil) + subdir) (with-temp-buffer - (dolist (subdir command-line-args-left) + ;; Use up command-line-args-left else Emacs can try to open + ;; the args as directories after we are done. + (while (setq subdir (pop command-line-args-left)) (message "Directory %s" subdir) (let ((files (directory-files subdir nil "\\`[^=].*\\.el\\'")) (default-directory (expand-file-name subdir)) |