mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
(nonobsolete_setwins): New macro.
(finder-data): Use it instead of `setwins'. From: Dave Love <fx@gnu.org>.
This commit is contained in:
parent
92a6563f8d
commit
865e97c125
2 changed files with 11 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue