# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 797656300 0
# Node ID 2fdc054fa4e3eeb5f13fb44539a4dd91e31fc786
# Parent  eba8070796a4470a1606729f94e6dd5305643b7c
[WINDOWSNT]: Find doc strings

diff -r eba8070796a4 -r 2fdc054fa4e3 lisp/loadup.el
--- a/lisp/loadup.el	Wed Apr 12 03:10:46 1995 +0000
+++ b/lisp/loadup.el	Wed Apr 12 03:11:40 1995 +0000
@@ -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)))