From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 12 Apr 1995 03:11:40 +0000 (+0000)
Subject: [WINDOWSNT]: Find doc strings
X-Git-Tag: emacs-19.34~4460
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea3e2043318327c6c8d5fcc7707d1c3d98f4b0b5;p=emacs.git

[WINDOWSNT]: Find doc strings
---

diff --git a/lisp/loadup.el b/lisp/loadup.el
index a4f74d982ef..efa7816bf2f 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -215,7 +215,7 @@
       (dump-emacs "emacs" "temacs")
       (message "%d pure bytes used" pure-bytes-used)
       ;; Recompute NAME now, so that it isn't set when we dump.
-      (if (not (eq system-type 'ms-dos))
+      (if (not (memq system-type '(ms-dos windows-nt)))
 	  (let ((name (concat "emacs-" emacs-version)))
 	    (while (string-match "[^-+_.a-zA-Z0-9]+" name)
 	      (setq name (concat (downcase (substring name 0 (match-beginning 0)))