(update-subdirs-CMD): Fix generation of subdirs.el (from Tak Ota

<Takaaki.Ota@am.sony.com>) and make it non-compilable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1852fe9ea534ca4ce90901d6a0e221c95f42548f..430f36c06ac7eb22bc2482e369d1c70b4f6e5380 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-02-06  Juanma Barranquero  <lektu@terra.es>
+
+       * makefile.w32-in (update-subdirs-CMD): Fix generation of
+       subdirs.el (from Tak Ota <Takaaki.Ota@am.sony.com>) and make it
+       non-compilable.
+
 2003-02-06  Matthew Swift  <swift@alum.mit.edu>
 
        * dired.el (dired-move-to-filename-regexp): Support "K" suffix on

diff --git a/lisp/makefile.w32-in b/lisp/makefile.w32-in
index ab286edfa42fd9860eebcc8bed256914377e6570..9f03c490e2bc8f453edb4dacf183b2faf86d1703 100644 (file)
--- a/lisp/makefile.w32-in
+++ b/lisp/makefile.w32-in
@@ -181,11 +181,12 @@ subdirs.el:
 update-subdirs: update-subdirs-$(SHELLTYPE)
 
 update-subdirs-CMD: doit
-       @set QWINS=
-       @for %d in ($(WINS)) do if not (%d)==(term) set QWINS=%QWINS% "%d"
-       echo ;; In load-path, after this directory should come> subdirs.el
+       echo ;; -*- no-byte-compile: t -*->subdirs.el
+       echo ;; In load-path, after this directory should come>> subdirs.el
        echo ;; certain of its subdirectories.  Here we specify them.>> subdirs.el
-       echo (normal-top-level-add-to-load-path $(SQUOTE)(%QWINS%))>> subdirs.el
+       echo (normal-top-level-add-to-load-path $(SQUOTE)(>> subdirs.el
+       @for %d in ($(WINS)) do if not (%d)==(term) echo "%d">> subdirs.el
+       echo ))>> subdirs.el
 
 update-subdirs-SH: doit
        wd=$(lisp); $(setwins); \