Mercurial > emacs

comparison lisp/loadup.el @ 9783:7d8fc4b4f60d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
On windows-nt, load ls-lisp and winnt. Treat windows-nt like ms-dos for DOC file name.
author Richard M. Stallman <rms@gnu.org>
date Tue, 01 Nov 1994 05:56:55 +0000
parents 113f20118cc3
children c062f5bc946a
comparison
equal deleted inserted replaced
9782:7224fba93c27 9783:7d8fc4b4f60d
95 (load "buff-menu") 95 (load "buff-menu")
96 (if (eq system-type 'vax-vms) 96 (if (eq system-type 'vax-vms)
97 (progn 97 (progn
98 (garbage-collect) 98 (garbage-collect)
99 (load "vms-patch"))) 99 (load "vms-patch")))
100 (if (eq system-type 'windows-nt)
101 (progn
102 (garbage-collect)
103 (load "ls-lisp")
104 (load "winnt")))
100 (if (eq system-type 'ms-dos) 105 (if (eq system-type 'ms-dos)
101 (progn 106 (progn
102 (load "ls-lisp") 107 (load "ls-lisp")
103 (garbage-collect) 108 (garbage-collect)
104 (load "dos-fns") 109 (load "dos-fns")
158 (let ((name emacs-version)) 163 (let ((name emacs-version))
159 (while (string-match "[^-+_.a-zA-Z0-9]+" name) 164 (while (string-match "[^-+_.a-zA-Z0-9]+" name)
160 (setq name (concat (downcase (substring name 0 (match-beginning 0))) 165 (setq name (concat (downcase (substring name 0 (match-beginning 0)))
161 "-" 166 "-"
162 (substring name (match-end 0))))) 167 (substring name (match-end 0)))))
163 (if (eq system-type 'ms-dos) 168 (if (memq system-type '(ms-dos windows-nt))
164 (setq name (expand-file-name 169 (setq name (expand-file-name
165 (if (fboundp 'make-frame) "DOC-X" "DOC") "../etc")) 170 (if (fboundp 'make-frame) "DOC-X" "DOC") "../etc"))
166 (setq name (concat (expand-file-name "../etc/DOC-") name)) 171 (setq name (concat (expand-file-name "../etc/DOC-") name))
167 (if (file-exists-p name) 172 (if (file-exists-p name)
168 (delete-file name)) 173 (delete-file name))