(setwins, setwins_almost): Change directory to $wd

before finding directories by `find'.

2 files changed, 10 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2857c041aba..b4f846d5ee1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-03-29  Kenichi Handa  <handa@m17n.org>
+
+        * Makefile.in (setwins, setwins_almost): Change directory to $wd
+        before finding directories by `find'.
+
 2004-03-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * subr.el (interactive-form): Delete.  Now implemented in C.
@@ -320,7 +325,7 @@
         Eliminate revert messages.
         (dired-mode): Set buffer-stale-function to dired-buffer-stale-p.
 
-2004-03-23  Kenichi Handa  <handa@etlken2>
+2004-03-23  Kenichi Handa  <handa@m17n.org>
 
         * international/characters.el: Setup syntaxes for more parentheses
         Unicode characters.
diff --git a/lisp/Makefile.in b/lisp/Makefile.in
index e1c6b779db2..9efd587a199 100644
--- a/lisp/Makefile.in
+++ b/lisp/Makefile.in
@@ -136,17 +136,17 @@ emacs = EMACSLOADPATH=$(lisp) $(EMACS) $(EMACSOPT)
 
 # Common command to find subdirectories
 
-setwins=subdirs=`find $$wd -type d -print`; \
+setwins=subdirs=`(cd $$wd; find . -type d -print)`; \
         for file in $$subdirs; do \
            case $$file in */Old | */RCS | */CVS | */CVS/* | */.* | */.*/* | */=* ) ;; \
-                *) wins="$$wins $$file" ;; \
+                *) wins="$$wins $$wd/$$file" ;; \
            esac; \
         done
 
-setwins_almost=subdirs=`find $$wd -type d -print`; \
+setwins_almost=subdirs=`(cd $$wd; find . -type d -print)`; \
         for file in $$subdirs; do \
            case $$file in */Old | */RCS | */CVS | */CVS/* | */.* | */.*/* | */=* | */obsolete | */term ) ;; \
-                *) wins="$$wins $$file" ;; \
+                *) wins="$$wins $$wd/$$file" ;; \
            esac; \
         done