procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Gerd Moellmann 2000-07-03 19:13:55 +00:00
parent e4f98ad3c6
commit cae2c28eee
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/frame.el
View file

@ -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))))