From 178b4542e705435fcd29d20317a6bf0586db08d5 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 5 Mar 2005 04:31:59 +0000 Subject: [PATCH] (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'. --- lisp/startup.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 790d8704c29..1c5616f8823 100644 --- 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)) -- 2.39.2