* lisp/startup.el (command-line) <site-run-file>: Avoid rogue value in emacs -Q.
This commit is contained in:
parent
83e923bf37
commit
b32683f1df
1 changed files with 5 additions and 2 deletions
|
@ -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")
|
||||
|
|
Loading…
Add table
Reference in a new issue