From 7c9acaf312a01489ee5b31afd2c3b87affedf166 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Wed, 6 Apr 2005 10:43:29 +0000 Subject: [PATCH] (command-line): Add --bare-bones alias for -Q. --- lisp/startup.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index cc603208820..5ef0dba00b3 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -657,7 +657,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (while (and (not done) args) (let* ((longopts '(("--no-init-file") ("--no-site-file") ("--user") ("--debug-init") ("--iconic") ("--icon-type") - ("--no-blinking-cursor"))) + ("--no-blinking-cursor") ("--bare-bones"))) (argi (pop args)) (orig-argi argi) argval) @@ -677,7 +677,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (setq argval nil argi orig-argi))))) (cond - ((equal argi "-Q") + ((member argi '("-Q" "-bare-bones")) (setq init-file-user nil site-run-file nil no-blinking-cursor t -- 2.39.2