[Emacs-diffs] Changes to emacs/lisp/startup.el

[Kim F . Storm]

Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.342 emacs/lisp/startup.el:1.343
*** emacs/lisp/startup.el:1.342 Tue Apr  5 15:19:35 2005
--- emacs/lisp/startup.el       Wed Apr  6 10:43:29 2005
***************
*** 657,663 ****
      (while (and (not done) args)
        (let* ((longopts '(("--no-init-file") ("--no-site-file") ("--user")
                           ("--debug-init") ("--iconic") ("--icon-type")
!                        ("--no-blinking-cursor")))
               (argi (pop args))
               (orig-argi argi)
               argval)
--- 657,663 ----
      (while (and (not done) args)
        (let* ((longopts '(("--no-init-file") ("--no-site-file") ("--user")
                           ("--debug-init") ("--iconic") ("--icon-type")
!                        ("--no-blinking-cursor") ("--bare-bones")))
               (argi (pop args))
               (orig-argi argi)
               argval)
***************
*** 677,683 ****
                (setq argval nil
                        argi orig-argi)))))
        (cond
!        ((equal argi "-Q")
          (setq init-file-user nil
                site-run-file nil
                no-blinking-cursor t
--- 677,683 ----
                (setq argval nil
                        argi orig-argi)))))
        (cond
!        ((member argi '("-Q" "-bare-bones"))
          (setq init-file-user nil
                site-run-file nil
                no-blinking-cursor t