Update ../site-lisp/subdirs.el when needed.

diff --git a/nt/ChangeLog b/nt/ChangeLog
index a74e27e03c054f201893d64a207c8007035e8f6b..3757dd81bdfd87768828624a1eb23e19af4992ea 100644 (file)
--- a/nt/ChangeLog
+++ b/nt/ChangeLog
@@ -1,3 +1,7 @@
+2007-01-31  Juanma Barranquero  <lekktu@gmail.com>
+
+       * configure.bat: Update ../site-lisp/subdirs.el when needed.
+
 2007-01-30  Juanma Barranquero  <lekktu@gmail.com>
 
        * subdirs.el: Add "no-byte-compile: t" local variable.

diff --git a/nt/configure.bat b/nt/configure.bat
index ad44416651ab92e3126e5826e0ec526f5078eb85..1223f7e861d521b4df47a4e1350dc0a232e290a7 100755 (executable)
--- a/nt/configure.bat
+++ b/nt/configure.bat
@@ -519,8 +519,17 @@ del config.settings
 \r
 Rem Some people use WinZip which doesn't create empty directories!\r
 if not exist ..\site-lisp\nul mkdir ..\site-lisp\\r
-if not exist ..\site-lisp\subdirs.el copy subdirs.el ..\site-lisp\subdirs.el\r
-\r
+Rem Update subdirs.el only if it is different or fc.exe doesn't work.\r
+if exist foo.bar del foo.bar\r
+fc /b foo.bar foo.bar >nul 2>&1\r
+if not errorlevel 2 goto doUpdateSubdirs\r
+fc /b subdirs.el ..\site-lisp\subdirs.el >nul 2>&1\r
+if not errorlevel 1 goto dontUpdateSubdirs\r
+:doUpdateSubdirs\r
+if exist ..\site-lisp\subdirs.el del ..\site-lisp\subdirs.el\r
+copy subdirs.el ..\site-lisp\subdirs.el\r
+\r
+:dontUpdateSubdirs\r
 echo.\r
 echo Emacs successfully configured.\r
 echo Emacs successfully configured. >>config.log\r