diff options
| author | Karl Heuer | 1995-04-12 03:11:40 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-04-12 03:11:40 +0000 |
| commit | ea3e2043318327c6c8d5fcc7707d1c3d98f4b0b5 (patch) | |
| tree | f87fdd98766ab75b3597ac2d97e9052137408a04 | |
| parent | 64ce1458eff7a80547bc0ceaa8aecf58635985d5 (diff) | |
| download | emacs-ea3e2043318327c6c8d5fcc7707d1c3d98f4b0b5.tar.gz emacs-ea3e2043318327c6c8d5fcc7707d1c3d98f4b0b5.zip | |
[WINDOWSNT]: Find doc strings
| -rw-r--r-- | lisp/loadup.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 @@ | |||
| 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))) |