* lisp/startup.el (command-line) <site-run-file>: Avoid rogue value in emacs -Q.

diff --git a/lisp/startup.el b/lisp/startup.el
index 7fa929a659d2423c9f13cca8490e8d50f33d08cf..cb8a6a94527a952adbf48ecc3aefad66d2e81a8c 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -907,7 +907,9 @@ please check its value")
         ((member argi '("-Q" "-quick"))
          (setq init-file-user nil
                site-run-file nil
-                inhibit-x-resources t))
+               inhibit-x-resources t)
+         ;; Stop it showing up in emacs -Q's customize-rogue.
+         (put 'site-run-file 'standard-value '(nil)))
          ((member argi '("-no-x-resources"))
           (setq inhibit-x-resources t))
         ((member argi '("-D" "-basic-display"))
@@ -920,7 +922,8 @@ please check its value")
          (setq init-file-user (or argval (pop args))
                argval nil))
         ((equal argi "-no-site-file")
-         (setq site-run-file nil))
+         (setq site-run-file nil)
+         (put 'site-run-file 'standard-value '(nil)))
         ((equal argi "-debug-init")
          (setq init-file-debug t))
         ((equal argi "-iconic")