From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 12 May 1997 00:46:59 +0000 (+0000)
Subject: (custom-make-dependencies): Don't find the subdirs here;
X-Git-Tag: emacs-20.1~2201
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efbdca1221b4bd334c82d0f137dbe255cd2b708c;p=emacs.git

(custom-make-dependencies): Don't find the subdirs here;
instead, use the dirs specified on the command line.
---

diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el
index a733da89d79..ee18ee597e2 100644
--- a/lisp/cus-dep.el
+++ b/lisp/cus-dep.el
@@ -30,40 +30,12 @@
 
 (defun custom-make-dependencies ()
   "Batch function to extract custom dependencies from .el files.
-Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies"
+Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
   (let ((enable-local-eval nil)
-	all-subdirs pending
+	(all-subdirs command-line-args-left)
 	(start-directory default-directory))
     (get-buffer-create " cus-dep temp")
     (set-buffer " cus-dep temp")
-    (setq pending '("."))
-    (while pending
-      (let ((this (car pending))
-	    this-subdirs
-	    default-directory)
-	(setq all-subdirs (cons this all-subdirs))
-	(setq pending (cdr pending))
-	(setq default-directory
-	      (expand-file-name this start-directory))
-	(message "Finding subdirs of %s" this)
-	(erase-buffer)
-	(condition-case nil
-	    (progn
-	      (insert-file-contents "subdirs.el")
-	      (goto-char (point-min))
-	      (search-forward "'(")
-	      (forward-char -1)
-	      (setq this-subdirs (read (current-buffer)))
-	      (setq pending (nconc pending
-				   (mapcar 
-				    (function (lambda (dir)
-						(file-relative-name
-						 (file-name-as-directory
-						  (expand-file-name dir this))
-						 start-directory)))
-				    this-subdirs))))
-	  (error nil))))
-
     (while all-subdirs
       (message "Directory %s" (car all-subdirs))
       (let ((files (directory-files (car all-subdirs) nil "\\`[^=].*\\.el\\'"))
@@ -73,20 +45,21 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies"
 	(while files
 	  (setq file (car files)
 		files (cdr files))
-	  (message "Checking %s..." file)
-	  (erase-buffer)
-	  (insert-file-contents file)
-	  (goto-char (point-min))
-	  (string-match "\\`\\(.*\\)\\.el\\'" file)
-	  (let ((name (file-name-nondirectory (match-string 1 file))))
-	    (condition-case nil
-		(while (re-search-forward "^(defcustom\\|^(defface\\|^(defgroup"
-					  nil t)
-		  (beginning-of-line)
-		  (let ((expr (read (current-buffer))))
-		    (eval expr)
-		    (put (nth 1 expr) 'custom-where name)))
-	      (error nil))))
+	  (when (file-exists-p file)
+	    (message "Checking %s..." file)
+	    (erase-buffer)
+	    (insert-file-contents file)
+	    (goto-char (point-min))
+	    (string-match "\\`\\(.*\\)\\.el\\'" file)
+	    (let ((name (file-name-nondirectory (match-string 1 file))))
+	      (condition-case nil
+		  (while (re-search-forward "^(defcustom\\|^(defface\\|^(defgroup"
+					    nil t)
+		    (beginning-of-line)
+		    (let ((expr (read (current-buffer))))
+		      (eval expr)
+		      (put (nth 1 expr) 'custom-where name)))
+		(error nil)))))
 	(setq all-subdirs (cdr all-subdirs)))))
   (message "Generating cus-load.el...")
   (find-file "cus-load.el")
@@ -122,6 +95,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies"
 ;;; cus-load.el ends here\n")
   (let ((kept-new-versions 10000000))
     (save-buffer))
-  (message "Generating cus-load.el...done"))
+  (message "Generating cus-load.el...done")
+  (kill-emacs))
 
 ;;; cus-dep.el ends here