Commit 178b4542 authored by Juri Linkov's avatar Juri Linkov

(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'.
parent 2313f861
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment