(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 --git a/lisp/startup.el b/lisp/startup.el
index 790d8704c299a272c6d6046a461fc0f50ea89c06..1c5616f8823dbdb03eba4957aee8179492fca40f 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -283,6 +283,8 @@ from being initialized."
 
 (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 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
     ;; 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 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
         ((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 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
          (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 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
   ;; 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))