From: Kim F. Storm <storm@cua.dk>
Date: Wed, 6 Apr 2005 10:43:29 +0000 (+0000)
Subject: (command-line): Add --bare-bones alias for -Q.
X-Git-Tag: ttn-vms-21-2-B4~1176
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c9acaf312a01489ee5b31afd2c3b87affedf166;p=emacs.git

(command-line): Add --bare-bones alias for -Q.
---

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