From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 31 Jan 2007 10:04:15 +0000 (+0000)
Subject: Update ../site-lisp/subdirs.el when needed.
X-Git-Tag: emacs-pretest-22.0.94~488
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=57a644088367051b17da4ac1e7ef0b20fc72b947;p=emacs.git

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

diff --git a/nt/ChangeLog b/nt/ChangeLog
index a74e27e03c0..3757dd81bdf 100644
--- 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 ad44416651a..1223f7e861d 100755
--- a/nt/configure.bat
+++ b/nt/configure.bat
@@ -519,8 +519,17 @@ del config.settings
 
 Rem Some people use WinZip which doesn't create empty directories!
 if not exist ..\site-lisp\nul mkdir ..\site-lisp\
-if not exist ..\site-lisp\subdirs.el copy subdirs.el ..\site-lisp\subdirs.el
-
+Rem Update subdirs.el only if it is different or fc.exe doesn't work.
+if exist foo.bar del foo.bar
+fc /b foo.bar foo.bar >nul 2>&1
+if not errorlevel 2 goto doUpdateSubdirs
+fc /b subdirs.el ..\site-lisp\subdirs.el >nul 2>&1
+if not errorlevel 1 goto dontUpdateSubdirs
+:doUpdateSubdirs
+if exist ..\site-lisp\subdirs.el del ..\site-lisp\subdirs.el
+copy subdirs.el ..\site-lisp\subdirs.el
+
+:dontUpdateSubdirs
 echo.
 echo Emacs successfully configured.
 echo Emacs successfully configured. >>config.log