From 865e97c125565a0f96590e8f7f3e4a892013765d Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 9 Apr 2001 14:50:44 +0000 Subject: [PATCH] (nonobsolete_setwins): New macro. (finder-data): Use it instead of `setwins'. From: Dave Love . --- lisp/ChangeLog | 4 ++++ lisp/Makefile.in | 8 +++++++- 2 files changed, 11 insertions(+), 1 deletion(-) 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 + * Makefile.in (nonobsolete_setwins): New macro. + (finder-data): Use it instead of `setwins'. + From: Dave Love . + * 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 -- 2.39.5