Commit cae2c28e authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(blink-cursor-mode): Don't hide cursor initially.

parent e4f98ad3
......@@ -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))))
......
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