From cae2c28eeed2f90efc3fdd125b6e1d7a830b4ce1 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 3 Jul 2000 19:13:55 +0000 Subject: [PATCH] (blink-cursor-mode): Don't hide cursor initially. --- lisp/frame.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/frame.el b/lisp/frame.el index 03b9bc6e65e..a33d8c41aaf 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1064,7 +1064,7 @@ window blinks." (if on-p (progn ;; Hide the cursor. - (internal-show-cursor nil nil) + ;(internal-show-cursor nil nil) (setq blink-cursor-idle-timer (run-with-idle-timer blink-cursor-delay blink-cursor-delay @@ -1072,12 +1072,14 @@ window blinks." (setq blink-cursor-mode t)) (internal-show-cursor nil t)))) -(defcustom blink-cursor (unless (eq system-type 'ms-dos) - window-system) +;; Note that this is really initialized from startup.el before +;; the init-file is read. + +(defcustom blink-cursor nil "*Non-nil means blinking cursor mode is active." + :group 'cursor :tag "Blinking cursor" :type 'boolean - :group 'cursor :set #'(lambda (symbol value) (set-default symbol value) (blink-cursor-mode (or value 0)))) -- 2.39.2