# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 745221665 0
# Node ID e1d54ee1deea81335ac6fac6406a25cf985598d3
# Parent  cec168152d888f232e0601da9398b2916548ad6b
(site-run-file): New variable.
(command-line): Use it.  Support -no-site-file.

diff -r cec168152d88 -r e1d54ee1deea lisp/startup.el
--- 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)