Mercurial > emacs

comparison lisp/loadup.el @ 54821:3ba372971558

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add cygwin to system-type list, for unexec() support.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 12 Apr 2004 19:30:13 +0000
parents c2571a9aef3a
children 7c8ecf412b73 eb7e8d483840
comparison
equal deleted inserted replaced
54820:55d196917d3b 54821:3ba372971558
328 ;; under the name `xemacs'), and it's inconsistent with every 328 ;; under the name `xemacs'), and it's inconsistent with every
329 ;; other GNU program's build process. 329 ;; other GNU program's build process.
330 (dump-emacs "emacs" "temacs") 330 (dump-emacs "emacs" "temacs")
331 (message "%d pure bytes used" pure-bytes-used) 331 (message "%d pure bytes used" pure-bytes-used)
332 ;; Recompute NAME now, so that it isn't set when we dump. 332 ;; Recompute NAME now, so that it isn't set when we dump.
333 (if (not (memq system-type '(ms-dos windows-nt))) 333 (if (not (memq system-type '(ms-dos windows-nt cygwin)))
334 (let ((name (concat "emacs-" emacs-version))) 334 (let ((name (concat "emacs-" emacs-version)))
335 (while (string-match "[^-+_.a-zA-Z0-9]+" name) 335 (while (string-match "[^-+_.a-zA-Z0-9]+" name)
336 (setq name (concat (downcase (substring name 0 (match-beginning 0))) 336 (setq name (concat (downcase (substring name 0 (match-beginning 0)))
337 "-" 337 "-"
338 (substring name (match-end 0))))) 338 (substring name (match-end 0)))))