From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 9 Apr 2001 14:50:44 +0000 (+0000)
Subject: (nonobsolete_setwins): New macro.
X-Git-Tag: emacs-pretest-21.0.103~267
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=865e97c125565a0f96590e8f7f3e4a892013765d;p=emacs.git

(nonobsolete_setwins): New macro.
(finder-data): Use it instead of `setwins'.
From: Dave Love <fx@gnu.org>.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 656695423f7..4ebce39590e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-04-09  Gerd Moellmann  <gerd@gnu.org>
 
+	* Makefile.in (nonobsolete_setwins): New macro.
+	(finder-data): Use it instead of `setwins'.  
+	From: Dave Love <fx@gnu.org>.
+
 	* server.el (server-visit-files): Set server-existing-buffer
 	correctly.
 	(server-visit-files): Run server-visit-hook after going to
diff --git a/lisp/Makefile.in b/lisp/Makefile.in
index 3fb63dcc523..933673d94be 100644
--- a/lisp/Makefile.in
+++ b/lisp/Makefile.in
@@ -119,6 +119,12 @@ setwins=subdirs=`find $$wd -type d -print`; \
 		*) wins="$$wins $$file" ;; \
 	   esac; \
         done
+nonobsolete_setwins=subdirs=`find $$wd -type d -print`; \
+	for file in $$subdirs; do \
+	   case $$file in */Old | */RCS | */CVS | */CVS/* | */=* | */obsolete ) ;; \
+		*) wins="$$wins $$file" ;; \
+	   esac; \
+        done
 
 doit:
 
@@ -132,7 +138,7 @@ custom-deps: cus-load.el doit
 finder-inf.el:
 	echo "(provide 'finder-inf)" >> $@
 finder-data: finder-inf.el doit
-	wd=$(lisp); $(setwins); \
+	wd=$(lisp); $(nonobsolete_setwins); \
 	echo Directories: $$wins; \
 	$(EMACS) $(EMACSOPT) -l finder -f finder-compile-keywords-make-dist $$wins