From 4a90ad458b1ff71a6bb0ca993c92e5525cff3d06 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 21 Oct 1998 07:52:13 +0000
Subject: [PATCH] Work around unpleasant behavior in Windows 98.

---
 v7/src/microcode/nttop.c | 23 ++++++++++++++++++++---
 1 file changed, 20 insertions(+), 3 deletions(-)

diff --git a/v7/src/microcode/nttop.c b/v7/src/microcode/nttop.c
index a922f054d..3fa95ebb3 100644
--- a/v7/src/microcode/nttop.c
+++ b/v7/src/microcode/nttop.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: nttop.c,v 1.27 1998/10/21 07:38:10 cph Exp $
+$Id: nttop.c,v 1.28 1998/10/21 07:52:13 cph Exp $
 
 Copyright (c) 1993-98 Massachusetts Institute of Technology
 
@@ -128,6 +128,23 @@ OS_under_emacs_p (void)
 
 enum windows_type NT_windows_type;
 
+static int
+empty_string_p (const char * s)
+{
+  const char * p = s;
+  while (1)
+    switch (*p++)
+      {
+      case '\0':
+	return (1);
+      case ' ':
+      case '\t':
+	break;
+      default:
+	return (0);
+      }
+}
+
 void
 OS_initialize (void)
 {
@@ -157,7 +174,7 @@ OS_initialize (void)
 		 (info.dwMajorVersion),
 		 (info.dwMinorVersion),
 		 (info.dwBuildNumber));
-	if (((info.szCSDVersion)[0]) != '\0')
+	if (!empty_string_p (info.szCSDVersion))
 	  {
 	    strcat (p, "; ");
 	    strcat (p, (info.szCSDVersion));
@@ -174,7 +191,7 @@ OS_initialize (void)
 		  ? "98"
 		  : "9?"),
 		 (LOWORD (info.dwBuildNumber)));
-	if (((info.szCSDVersion)[0]) != '\0')
+	if (!empty_string_p (info.szCSDVersion))
 	  {
 	    strcat (p, "; ");
 	    strcat (p, (info.szCSDVersion));
-- 
2.25.1