home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / jade-3.0.lha / Jade / lisp / init.jlc < prev    next >
Encoding:
Text File  |  1994-04-20  |  1016 b   |  35 lines
  1.  
  2. (title-now "Initialising - wait...")
  3.  
  4. (load "lisp")
  5.  
  6. (load "loadsyms")
  7.  
  8. (load "windows")
  9.  
  10. (load "buffers")
  11.  
  12. (load "modes")
  13.  
  14. (load "edit")
  15.  
  16. (load "prompt")
  17.  
  18. (load "loadkeys")
  19.  
  20. (eval-hook (quote open-file-hook) (current-buffer))
  21.  
  22. (load "site-init" t)
  23.  
  24. (or (load (concat (user-home-directory) ".jaderc") t t) (load "default" t))
  25.  
  26. (when (and (amiga-p) (not (boundp (quote amiga-no-menus)))) (load "loadmenus"))
  27.  
  28. (set-buffer-special default-buffer t)
  29.  
  30. (init-mode default-buffer "lisp-mode")
  31.  
  32. (let (arg) (while (setq arg (car command-line-args)) (cond ((equal "-f" arg) (setq command-line-args (cdr command-line-args)) (funcall (read-from-string (car command-line-args)))) ((equal "-l" arg) (setq command-line-args (cdr command-line-args)) (load (car command-line-args))) ((equal "-q" arg) (throw (quote quit) 0)) (t (set-current-buffer (open-file file)))) (setq command-line-args (cdr command-line-args))))
  33.  
  34. (title (format-string "Jade %d.%d Copyright 1994 John Harper. " (major-version-number) (minor-version-number)))
  35.