# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1109997119 0
# Node ID b796f66dc4d1550b5e958fe0946e719a47ea8fa2
# Parent  b995637d585c5dcf004fb5f433063d12fb903091
(no-blinking-cursor): New defvar.
(command-line): Add `--no-blinking-cursor' to longopts.
Set `no-blinking-cursor' to t for command line arguments
-Q, -nbc, --no-blinking-cursor.  Replace `emacs-quick-startup'
with `no-blinking-cursor' in the condition for calling
`blink-cursor-mode'.

diff -r b995637d585c -r b796f66dc4d1 lisp/startup.el
--- a/lisp/startup.el	Sat Mar 05 03:51:20 2005 +0000
+++ b/lisp/startup.el	Sat Mar 05 04:31:59 2005 +0000
@@ -283,6 +283,8 @@
 
 (defvar normal-top-level-add-subdirs-inode-list nil)
 
+(defvar no-blinking-cursor nil)
+
 (defvar pure-space-overflow nil
   "Non-nil if building Emacs overflowed pure space.")
 
@@ -667,7 +669,8 @@
     ;; does things.
     (while (and (not done) args)
       (let* ((longopts '(("--no-init-file") ("--no-site-file") ("--user")
-                         ("--debug-init") ("--iconic") ("--icon-type")))
+                         ("--debug-init") ("--iconic") ("--icon-type")
+			 ("--no-blinking-cursor")))
              (argi (pop args))
              (orig-argi argi)
              argval)
@@ -690,6 +693,7 @@
 	 ((equal argi "-Q")
 	  (setq init-file-user nil
 		site-run-file nil
+		no-blinking-cursor t
 		emacs-quick-startup t)
 	  (push '(vertical-scroll-bars . nil) initial-frame-alist))
 	 ((member argi '("-q" "-no-init-file"))
@@ -705,6 +709,8 @@
 	  (push '(visibility . icon) initial-frame-alist))
 	 ((member argi '("-icon-type" "-i" "-itype"))
 	  (push '(icon-type . t) default-frame-alist))
+	 ((member argi '("-nbc" "-no-blinking-cursor"))
+	  (setq no-blinking-cursor t))
 	 ;; Push the popped arg back on the list of arguments.
 	 (t
           (push argi args)
@@ -740,7 +746,7 @@
   ;; you should also change the corresponding expression in the
   ;; defcustom in frame.el, or Custom will be badly confused.
   (unless (or noninteractive
-	      emacs-quick-startup
+	      no-blinking-cursor
               (eq system-type 'ms-dos)
               (not (memq window-system '(x w32))))
     (blink-cursor-mode 1))