Mercurial > emacs
changeset 60397:b796f66dc4d1
(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'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sat, 05 Mar 2005 04:31:59 +0000 |
| parents | b995637d585c |
| children | 444829a91578 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))