From d74c6f5b5c4aee035854e569bff73b7f54d82b2c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 12 Apr 1995 03:11:40 +0000 Subject: [WINDOWSNT]: Find doc strings --- lisp/loadup.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/loadup.el') 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))) -- cgit v1.2.1