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 >
Lisp/Scheme  |  1996-09-09  |  3KB  |  99 lines
  1.  
  2. (buffer-flush-undo (get-buffer "*scratch*"))
  3.  
  4. (load "subr")
  5.  
  6. (garbage-collect)
  7.  
  8. (load "loaddefs.el")
  9.  
  10. (garbage-collect)
  11.  
  12. (load "simple")
  13.  
  14. (garbage-collect)
  15.  
  16. (load "help")
  17.  
  18. (load "files")
  19.  
  20. (garbage-collect)
  21.  
  22. (load "indent")
  23.  
  24. (load "window")
  25.  
  26. (load "paths.el")
  27.  
  28. (garbage-collect)
  29.  
  30. (load "startup")
  31.  
  32. (load "lisp")
  33.  
  34. (garbage-collect)
  35.  
  36. (load "page")
  37.  
  38. (load "register")
  39.  
  40. (garbage-collect)
  41.  
  42. (load "paragraphs")
  43.  
  44. (load "lisp-mode")
  45.  
  46. (garbage-collect)
  47.  
  48. (load "text-mode")
  49.  
  50. (load "fill")
  51.  
  52. (garbage-collect)
  53.  
  54. (load "c-mode")
  55.  
  56. (garbage-collect)
  57.  
  58. (load "isearch")
  59.  
  60. (garbage-collect)
  61.  
  62. (load "replace")
  63.  
  64. (if (eq system-type (quote vax-vms)) (progn (garbage-collect) (load "vmsproc")))
  65.  
  66. (garbage-collect)
  67.  
  68. (load "abbrev")
  69.  
  70. (garbage-collect)
  71.  
  72. (load "buff-menu")
  73.  
  74. (if (eq system-type (quote vax-vms)) (progn (garbage-collect) (load "vms-patch")))
  75.  
  76. (if (eq system-type (quote amigaos)) (progn (garbage-collect) (load "amiga-init")))
  77.  
  78. (if (load "site-load" t) (garbage-collect))
  79.  
  80. (load "version.el")
  81.  
  82. (message "Finding pointers to doc strings...")
  83.  
  84. (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"))
  85.  
  86. (message "Finding pointers to doc strings...done")
  87.  
  88. (load "site-init" t)
  89.  
  90. (garbage-collect)
  91.  
  92. (buffer-enable-undo (get-buffer "*scratch*"))
  93.  
  94. (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))))
  95.  
  96. (setq purify-flag nil)
  97.  
  98. (or (fboundp (quote dump-emacs)) (eval top-level))
  99.