home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / alt / lucidem / help / 311 < prev    next >
Encoding:
Internet Message Format  |  1992-08-21  |  1.8 KB

  1. Date: Fri, 21 Aug 1992 12:44:12 +0200
  2. From: harald%itk.unit.no@lucid.com
  3. Message-ID: <9208211044.AA17098@tone>
  4. Subject: epoch init hook
  5. Newsgroups: alt.lucid-emacs.help
  6. Path: sparky!uunet!wendy-fate.uu.net!help-lucid-emacs
  7. Sender: help-lucid-emacs-request@lucid.com
  8. x-gateway: Fri from help-lucid-emacs to alt.lucid-emacs.help; Fri, 21 Aug 1992 07:59:39 EDT
  9. Lines: 39
  10.  
  11. I want to have a way to make SITE WIDE defaults like (autoload ...) in
  12. Lucid Emacs (lemacs).
  13.  
  14. Of cause this can be done in site-init.el, but then I have to
  15. recompile lemacs every time we install a new package. The other
  16. alternative is default.el, but that file is loadet after ~/.emacs.
  17. This inhibits any personal preferences.
  18.  
  19. And I don't want every user to have a (load-file "our-site-defaults"
  20. ..) in their ~/.emacs.
  21.  
  22. In Epoch there is a hook, setup-hook, that can be used, see example
  23. below. Is there any hook like this, or any other mechanism, in lemacs?
  24.  
  25. Regards, Harald Backer                  
  26.  
  27. SINTEF Automatic Control                : Phone +47 7 594375
  28. The Norwegian Institute of Technology   : Fax   +47 7 594399
  29. N-7034 Trondheim            : Email harald@itk.unit.no
  30. NORWAY
  31.  
  32. ...............................................................
  33.  
  34. ;;
  35. ;; File name : site-init.el
  36. ;;
  37. ;; Function: Intended to load a "global" init-file before user's own
  38. ;;     .emacs is loaded. (site-init is also loaded before the user's
  39. ;;    .emacs, but modifications in site-init is not reflected until
  40. ;;    emacs/epoch is recompiled. The standard default.el is loaded
  41. ;;    after the user's .emacs.)
  42. ;;
  43.  
  44. ;; Put news in default-init, not here in site-init - unless you want
  45. ;; to recompile emacs/epoch. NB! Don't use setq epoch-setup-hook as it
  46. ;; is already set in some basic epoch lisp files.
  47. (epoch-add-setup-hook '(lambda ()
  48.      (load "default-init" t t)
  49.      ))
  50.