(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 656695423f78f1d9b97c6bf980bc16f00f3a914d..4ebce39590e95c3dd04fa0424ec785172f8fcd54 100644 (file)
--- 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 3fb63dcc52398e079122a9f500fa79dba2d3ecfa..933673d94bef6db18c99906137e061c1749af7e1 100644 (file)
--- 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