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

* frame.el (blink-cursor-mode, blink-cursor-end): Use

Browse source 
internal-show-cursor with new interface.
	(blink-cursor-timer-function): New.
	(blink-cursor-start): Use blink-cursor-timer-function.
This commit is contained in:
Gerd Moellmann 1999-11-03 15:57:21 +00:00
parent 3179af52e4
commit 0a5ebe4b76
2 changed files with 14 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
1999-11-03 Gerd Moellmann <gerd@gnu.org>
* frame.el (blink-cursor-mode, blink-cursor-end): Use
internal-show-cursor with new interface.
(blink-cursor-timer-function): New.
(blink-cursor-start): Use blink-cursor-timer-function.
1999-11-03 Edward M. Reingold <reingold@emr.cs.uiuc.edu>
* calendar.el (redraw-calendar): Move to nearest date before

10
lisp/frame.el
View file

@ -838,7 +838,7 @@ window blinks."
(if on-p
(progn
;; Hide the cursor.
(internal-show-cursor 0)
(internal-show-cursor nil nil)
(setq blink-cursor-idle-timer
(run-with-idle-timer blink-cursor-delay
blink-cursor-delay
@ -863,7 +863,11 @@ command starts, by installing a pre-command hook."
(add-hook 'pre-command-hook 'blink-cursor-end)
(setq blink-cursor-timer
(run-with-timer blink-cursor-interval blink-cursor-interval
'internal-show-cursor))))
'blink-cursor-timer-function))))
(defun blink-cursor-timer-function ()
"Timer function of timer `blink-cursor-timer'."
(internal-show-cursor nil (not (internal-show-cursor-p))))
(defun blink-cursor-end ()
"Stop cursor blinking.
@ -871,7 +875,7 @@ This is installed as a pre-command hook by `blink-cursor-start'.
When run, it cancels the timer `blink-cursor-timer' and removes
itself as a pre-command hook."
(remove-hook 'pre-command-hook 'blink-cursor-end)
(internal-show-cursor 0)
(internal-show-cursor nil t)
(cancel-timer blink-cursor-timer)
(setq blink-cursor-timer nil))