home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Geek Gadgets 1
/
ADE-1.bin
/
ade-dist
/
emacs-18.59-bin.lha
/
lib
/
emacs
/
18.59
/
lisp
/
loadup.elc
< prev
next >
Wrap
Lisp/Scheme
|
1996-09-09
|
3KB
|
99 lines
(buffer-flush-undo (get-buffer "*scratch*"))
(load "subr")
(garbage-collect)
(load "loaddefs.el")
(garbage-collect)
(load "simple")
(garbage-collect)
(load "help")
(load "files")
(garbage-collect)
(load "indent")
(load "window")
(load "paths.el")
(garbage-collect)
(load "startup")
(load "lisp")
(garbage-collect)
(load "page")
(load "register")
(garbage-collect)
(load "paragraphs")
(load "lisp-mode")
(garbage-collect)
(load "text-mode")
(load "fill")
(garbage-collect)
(load "c-mode")
(garbage-collect)
(load "isearch")
(garbage-collect)
(load "replace")
(if (eq system-type (quote vax-vms)) (progn (garbage-collect) (load "vmsproc")))
(garbage-collect)
(load "abbrev")
(garbage-collect)
(load "buff-menu")
(if (eq system-type (quote vax-vms)) (progn (garbage-collect) (load "vms-patch")))
(if (eq system-type (quote amigaos)) (progn (garbage-collect) (load "amiga-init")))
(if (load "site-load" t) (garbage-collect))
(load "version.el")
(message "Finding pointers to doc strings...")
(if (fboundp (quote dump-emacs)) (let ((name emacs-version)) (while (string-match "[^-+_.a-zA-Z0-9]+" name) (setq name (concat (downcase (substring name 0 (match-beginning 0))) "-" (substring name (match-end 0))))) (copy-file (expand-file-name "../etc/DOC") (concat (expand-file-name "../etc/DOC-") name) t) (Snarf-documentation (concat "DOC-" name))) (Snarf-documentation "DOC"))
(message "Finding pointers to doc strings...done")
(load "site-init" t)
(garbage-collect)
(buffer-enable-undo (get-buffer "*scratch*"))
(if (or (equal (nth 3 command-line-args) "dump") (equal (nth 4 command-line-args) "dump")) (if (eq system-type (quote vax-vms)) (progn (message "Dumping data as file temacs.dump") (dump-emacs "temacs.dump" "temacs") (kill-emacs)) (if (fboundp (quote dump-emacs-data)) (progn (message "Dumping data as file ../etc/EMACS-DATA") (dump-emacs-data "../etc/EMACS-DATA") (kill-emacs)) (let ((name (concat "emacs-" emacs-version))) (while (string-match "[^-+_.a-zA-Z0-9]+" name) (setq name (concat (downcase (substring name 0 (match-beginning 0))) "-" (substring name (match-end 0))))) (message "Dumping under names xemacs and %s" name)) (condition-case nil (delete-file "xemacs") (file-error nil)) (dump-emacs "xemacs" "temacs") (let ((name (concat "emacs-" emacs-version))) (while (string-match "[^-+_.a-zA-Z0-9]+" name) (setq name (concat (downcase (substring name 0 (match-beginning 0))) "-" (substring name (match-end 0))))) (add-name-to-file "xemacs" name t)) (kill-emacs))))
(setq purify-flag nil)
(or (fboundp (quote dump-emacs)) (eval top-level))