Mercurial > emacs
changeset 4599:e1d54ee1deea
(site-run-file): New variable.
(command-line): Use it. Support -no-site-file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 13 Aug 1993 06:01:05 +0000 |
| parents | cec168152d88 |
| children | a4d11a20b724 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Fri Aug 13 05:38:33 1993 +0000 +++ b/lisp/startup.el Fri Aug 13 06:01:05 1993 +0000 @@ -119,6 +119,14 @@ In all cases, `(concat \"~\" init-file-user \"/\")' evaluates to the directory name of the directory where the `.emacs' file was looked for.") +(defvar site-run-file "site-start" + "File containing site-wide run-time initializations. +This file is loaded at run-time before `~/.emacs'. It contains inits +that need to be in place for the entire site, but which, due to their +higher incidence of change, don't make sense to load into emacs' +dumped image. Thus, the run-time load order is: 1. file described in +this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.") + (defvar init-file-debug nil) (defun normal-top-level () @@ -212,6 +220,9 @@ (setq args (cdr args) init-file-user (car args) args (cdr args))) + ((string-equal argi "-no-site-file") + (setq site-run-file nil + args (cdr args))) ((string-equal argi "-debug-init") (setq init-file-debug t args (cdr args))) @@ -231,7 +242,8 @@ ;; Run the site-start library if it exists. The point of this file is ;; that it is run before .emacs. There is no point in doing this after ;; .emacs; that is useless. - (load "site-start" t t) + (if site-run-file + (load site-run-file t t)) ;; Load that user's init file, or the default one, or none. (let ((debug-on-error init-file-debug)