Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 2030:488b2f76d852

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-04-19 08:54:47 by stephent] assorted improvements in ./lisp/ <87llkswdr6.fsf@tleepslib.sk.tsukuba.ac.jp> <87pta4we6g.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Mon, 19 Apr 2004 08:54:50 +0000
parents 6355bae896e3
children 69a0933b86f1
comparison
equal deleted inserted replaced
2029:7a9919388e87 2030:488b2f76d852
132 132
133 ;; #### called `site-run-file' in FSFmacs 133 ;; #### called `site-run-file' in FSFmacs
134 134
135 (defvar site-start-file "site-start" 135 (defvar site-start-file "site-start"
136 "File containing site-wide run-time initializations. 136 "File containing site-wide run-time initializations.
137 This file is loaded at run-time before `.emacs'. It 137 It is loaded at run-time before the user's init file (see `user-init-file').
138 contains inits that need to be in place for the entire site, but 138 It contains inits that need to be in place for the entire site, but
139 which, due to their higher incidence of change, don't make sense to 139 which, due to their higher incidence of change, don't make sense to
140 load into XEmacs' dumped image. Thus, the run-time load order is: 140 load into XEmacs's dumped image. Thus, the run-time load order is:
141 141
142 1. file described in this variable, if non-nil; 142 1. file described in this variable, if non-nil;
143 2. `.emacs'; 143 2. the file computed by `find-user-init-file';
144 3. `/path/to/xemacs/lisp/default.el'. 144 3. `/path/to/xemacs/lisp/default.el'.
145 145
146 Don't use the `site-start.el' file for things some users may not like. 146 Don't use the `site-start.el' file for things some users may not like.
147 Put them in `default.el' instead, so that users can more easily 147 Put them in `default.el' instead, so that users can more easily
148 override them. Users can prevent loading `default.el' with the `-q' 148 override them. Users can prevent loading `default.el' with the `-q'
913 ;; Users are supposed to be told their rights. 913 ;; Users are supposed to be told their rights.
914 ;; (Plus how to get help and how to undo.) 914 ;; (Plus how to get help and how to undo.)
915 ;; Don't you dare turn this off for anyone except yourself. 915 ;; Don't you dare turn this off for anyone except yourself.
916 (load "default" t t)))) 916 (load "default" t t))))
917 917
918 ;;; #### move this comment into a docstring. See site-init-file for some
919 ;;; description of what it does. Substitute a pointer to this function in
920 ;;; site-init-file's docstring.
918 ;;; Load user's init file and default ones. 921 ;;; Load user's init file and default ones.
919 (defun load-init-file () 922 (defun load-init-file ()
920 (run-hooks 'before-init-hook) 923 (run-hooks 'before-init-hook)
921 924
922 ;; Run the site-start library if it exists. The point of this file is 925 ;; Run the site-start library if it exists. The point of this file is
923 ;; that it is run before .emacs. There is no point in doing this after 926 ;; that it is run before the user's init file. There is no point in
924 ;; .emacs; that is useless. 927 ;; doing this after the user's init file; that is useless.
925 (when site-start-file 928 (when site-start-file
926 (load site-start-file t t)) 929 (load site-start-file t t))
927 930
928 ;; Sites should not disable this. Only individuals should disable 931 ;; Sites should not disable this. Only individuals should disable
929 ;; the startup message. 932 ;; the startup message.