# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1104247839 0
# Node ID 5ba3e8b1f0408fa15a67e8609d1a393a98476d72
# Parent  0345f2b10f1da902522fcbf0fd3f50c1ab1ce3a1
(site-run-file): Don't allow setting it with Custom.

diff -r 0345f2b10f1d -r 5ba3e8b1f040 lisp/startup.el
--- a/lisp/startup.el	Tue Dec 28 14:50:49 2004 +0000
+++ b/lisp/startup.el	Tue Dec 28 15:30:39 2004 +0000
@@ -229,9 +229,17 @@
 override them.  Users can prevent loading `default.el' with the `-q'
 option or by setting `inhibit-default-init' in their own init files,
 but inhibiting `site-start.el' requires `--no-site-file', which
-is less convenient."
+is less convenient.
+
+This variable is defined for customization so as to make
+it visible in the relevant context.  However, actually customizing it
+is not allowed, since it would not work anyway.  The only way to set
+this variable usefully is to set it during while building and dumping Emacs."
   :type '(choice (const :tag "none" nil) string)
-  :group 'initialization)
+  :group 'initialization
+  :initialize 'custom-initialize-default
+  :set '(lambda (variable value)
+	  (error "Customizing `site-run-file' does not work")))
 
 (defcustom mail-host-address nil
   "*Name of this machine, for purposes of naming users."