* lisp/Makefile.in (setwins, setwins_almost, setwins_for_subdirs): Simplify.

2 files changed, 10 insertions, 9 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 49dc1685063..3b475990d30 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-11-06  Glenn Morris  <rgm@gnu.org>
+
+        * Makefile.in (setwins, setwins_almost, setwins_for_subdirs): Simplify.
+
 2013-11-06  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * electric.el (electric-indent-just-newline): New command.
diff --git a/lisp/Makefile.in b/lisp/Makefile.in
index 9733495403c..0c23264b06d 100644
--- a/lisp/Makefile.in
+++ b/lisp/Makefile.in
@@ -109,25 +109,22 @@ COMPILE_FIRST = \
 emacs = unset EMACSLOADPATH; "$(EMACS)" $(EMACSOPT)
 
 # Common command to find subdirectories
-setwins=subdirs=`find . -type d -print`; \
-        for file in $$subdirs; do \
-           case $$file in */.* | */.*/* | */=* ) ;; \
+setwins=for file in `find . -type d -print`; do \
+           case $$file in */.* ) ;; \
                 *) wins="$$wins$${wins:+ }$$file" ;; \
            esac; \
         done
 
 # Find all subdirectories except `obsolete' and `term'.
-setwins_almost=subdirs=`find . -type d -print`; \
-        for file in $$subdirs; do \
-           case $$file in */.* | */.*/* | */=* | */obsolete | */term ) ;; \
+setwins_almost=for file in `find . -type d -print`; do \
+           case $$file in */.* | */obsolete | */term ) ;; \
                 *) wins="$$wins$${wins:+ }$$file" ;; \
            esac; \
         done
 
 # Find all subdirectories in which we might want to create subdirs.el
-setwins_for_subdirs=subdirs=`find . -type d -print`; \
-        for file in $$subdirs; do \
-           case $$file in */.* | */.*/* | */=* | */cedet* ) ;; \
+setwins_for_subdirs=for file in `find . -type d -print`; do \
+           case $$file in */.* | */cedet* ) ;; \
                 *) wins="$$wins$${wins:+ }$$file" ;; \
            esac; \
         done