# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1112784209 0
# Node ID 2b48abcc50ef077d75cfe0278f0b3d3b60559d5c
# Parent  ed93c6626165c0196b0f54b072ecf456613e01a6
(command-line): Add --bare-bones alias for -Q.

diff -r ed93c6626165 -r 2b48abcc50ef lisp/startup.el
--- a/lisp/startup.el	Wed Apr 06 10:42:36 2005 +0000
+++ b/lisp/startup.el	Wed Apr 06 10:43:29 2005 +0000
@@ -657,7 +657,7 @@
     (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 @@
 		(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