procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[WINDOWSNT]: Find doc strings

Browse source
This commit is contained in:
Karl Heuer 1995-04-12 03:11:40 +00:00
parent 64ce1458ef
commit ea3e204331
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/loadup.el
View file

@ -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)))