comparison lisp/loadup.el @ 11398:2fdc054fa4e3

[WINDOWSNT]: Find doc strings
author Karl Heuer <kwzh@gnu.org>
date Wed, 12 Apr 1995 03:11:40 +0000
parents 5358a0febe7a
children d4e2494f12cb
comparison
equal deleted inserted replaced
11397:eba8070796a4 11398:2fdc054fa4e3
213 ;; under the name `xemacs'), and it's inconsistent with every 213 ;; under the name `xemacs'), and it's inconsistent with every
214 ;; other GNU product's build process. 214 ;; other GNU product's build process.
215 (dump-emacs "emacs" "temacs") 215 (dump-emacs "emacs" "temacs")
216 (message "%d pure bytes used" pure-bytes-used) 216 (message "%d pure bytes used" pure-bytes-used)
217 ;; Recompute NAME now, so that it isn't set when we dump. 217 ;; Recompute NAME now, so that it isn't set when we dump.
218 (if (not (eq system-type 'ms-dos)) 218 (if (not (memq system-type '(ms-dos windows-nt)))
219 (let ((name (concat "emacs-" emacs-version))) 219 (let ((name (concat "emacs-" emacs-version)))
220 (while (string-match "[^-+_.a-zA-Z0-9]+" name) 220 (while (string-match "[^-+_.a-zA-Z0-9]+" name)
221 (setq name (concat (downcase (substring name 0 (match-beginning 0))) 221 (setq name (concat (downcase (substring name 0 (match-beginning 0)))
222 "-" 222 "-"
223 (substring name (match-end 0))))) 223 (substring name (match-end 0)))))