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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 49dc168506362e98688ad4a044dcf93feb67f621..3b475990d301713a153993cf8391d17bf31bb2e2 100644 (file)
--- 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 9733495403c6fc5e3ad995d6e3799f353c0750bc..0c23264b06d09a9adc5d3b4e12d46426568dae76 100644 (file)
--- 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