Mercurial > emacs

changeset 61345:2b48abcc50ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Add --bare-bones alias for -Q.
author Kim F. Storm <storm@cua.dk>
date Wed, 06 Apr 2005 10:43:29 +0000
parents ed93c6626165
children 09dcb6ef852f
files lisp/startup.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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