From: Kenichi Handa <handa@m17n.org>
Date: Mon, 29 Mar 2004 02:25:50 +0000 (+0000)
Subject: (setwins, setwins_almost): Change directory to $wd
X-Git-Tag: ttn-vms-21-2-B4~7038
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=39cc05f572cec0dc17c994120aabf55e2cbbcfd3;p=emacs.git

(setwins, setwins_almost): Change directory to $wd
before finding directories by `find'.
---

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