Mercurial > emacs

changeset 25961:24f775e3facc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setwins): abstract out the command to find subdirectories and fix it to also ignore subdirectories of CVS (f.ex. CVS/Base). (custom-deps, finder-data, autoloads, update-subdirs, updates): use it.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 10 Oct 1999 00:41:59 +0000
parents e06eeee47ef2
children 57633cf1db33
files lisp/Makefile
diffstat 1 files changed, 13 insertions(+), 30 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/Makefile	Sat Oct 09 23:52:56 1999 +0000
+++ b/lisp/Makefile	Sun Oct 10 00:41:59 1999 +0000
@@ -50,57 +50,40 @@
 
 temacs=../src/temacs -batch -l ./loadup.el 
 
+# Common command to find subdirectories
+
+setwins=subdirs=`find . -type d -print`; \
+	for file in $$subdirs; do \
+	   case $$file in */Old | */RCS | */CVS | */CVS/* | */=* ) ;; \
+		*) wins="$$wins $$file" ;; \
+	   esac; \
+        done
 
 doit:
 
 custom-deps: doit
-	subdirs=`find . -type d -print`; \
-	for file in $$subdirs; do \
-	   case $$file in */Old | */RCS | */CVS | */=* ) ;; \
-		*) wins="$$wins $$file" ;; \
-	   esac; \
-        done; \
+	$(setwins); \
 	echo Directories: $$wins; \
 	$(emacs) -l cus-dep -f custom-make-dependencies $$wins
 
 finder-data: doit
-	subdirs=`find . -type d -print`; \
-	for file in $$subdirs; do \
-	   case $$file in */Old | */RCS | */CVS | */=* ) ;; \
-		*) wins="$$wins $$file" ;; \
-	   esac; \
-        done; \
+	$(setwins); \
 	echo Directories: $$wins; \
 	$(emacs) -l finder -f finder-compile-keywords-make-dist $$wins
 
 autoloads: doit
-	subdirs=`find . -type d -print`; \
-	for file in $$subdirs; do \
-	   case $$file in */Old | */RCS | */CVS | */=* ) ;; \
-		*) wins="$$wins $$file" ;; \
-	   esac; \
-        done; \
+	$(setwins); \
 	echo Directories: $$wins; \
 	$(emacs) -f batch-update-autoloads $$wins
 
 update-subdirs: doit
-	subdirs=`find . -type d -print`; \
-	for file in $$subdirs; do \
-	   case $$file in */Old | */RCS | */CVS | */=* ) ;; \
-		*) wins="$$wins $$file" ;; \
-	   esac; \
-        done; \
+	$(setwins); \
 	for file in $$wins; do \
 	   ../update-subdirs $$file; \
 	done;
 
 updates: doit
-	subdirs=`find . -type d -print`; \
-	for file in $$subdirs; do \
-	   case $$file in */Old | */RCS | */CVS | */=* ) ;; \
-		*) wins="$$wins $$file" ;; \
-	   esac; \
-        done; \
+	$(setwins); \
 	for file in $$wins; do \
 	   ../update-subdirs $$file; \
 	done; \