From 0a5ebe4b761c443b9e165e75fe4f49eca1f107cc Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 3 Nov 1999 15:57:21 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 7 +++++++ lisp/frame.el | 10 +++++++--- 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 48727b52341..1ac9809bda5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +1999-11-03 Gerd Moellmann + + * 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 * calendar.el (redraw-calendar): Move to nearest date before diff --git a/lisp/frame.el b/lisp/frame.el index 5d06e5473f3..8970fe25ece 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -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)) -- 2.39.5