Mercurial > emacs
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))))) |