Code cleanup. Fix a bug with "/copy". From Frank

Schmitt <ich@Frank-Schmitt.net>.

diff --git a/ChangeLog b/ChangeLog
index 1436fd2..fdf7be6 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-10  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * make-x.bat: Code cleanup.  Fix a bug with "/copy".  From Frank
+       Schmitt <ich@Frank-Schmitt.net>.
+
 2001-11-26  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * make-x.bat: Use parameter "/copy" rather than "copy" for increased

diff --git a/make-x.bat b/make-x.bat
index d79340d..05d565c 100644 (file)
--- a/make-x.bat
+++ b/make-x.bat
@@ -11,13 +11,14 @@ set PWD=
 if "%1" == "" goto usage\r
 \r
 set emacs=xemacs.exe\r
+if "%2" == "copy" set copy=true\r
+if "%2" == "/copy" set copy=true\r
 \r
 cd lisp\r
 call %1\%emacs% -batch -q -no-site-file -l ./dgnushack.el -f dgnushack-compile\r
-if not "%2" == "copy" goto info\r
-if not "%2" == "/copy" goto info\r
+if not %copy%==true goto info\r
 attrib -r %1\..\..\xemacs-packages\lisp\gnus\*.*\r
-copy *.el* %1\..\..\xemacs-packages\lisp\gnus\r
+copy *.el? %1\..\..\xemacs-packages\lisp\gnus\r
 \r
 :info\r
 set EMACSINFO=call %1\%emacs% -no-site-file -no-init-file -batch -q -l infohack.el -f batch-makeinfo\r
@@ -25,8 +26,7 @@ cd ..\texi
 %EMACSINFO% message.texi\r
 %EMACSINFO% emacs-mime.texi\r
 %EMACSINFO% gnus.texi\r
-if not "%2" == "copy" goto done\r
-if not "%2" == "/copy" goto done\r
+if not %copy%==true goto done\r
 copy gnus %1\..\..\xemacs-packages\info\r
 copy gnus-?? %1\..\..\xemacs-packages\info\r
 copy message %1\..\..\xemacs-packages\info\r