diff options
author | Gerd Moellmann <gerd@gnu.org> | 1999-11-03 15:56:19 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 1999-11-03 15:56:19 +0000 |
commit | 8ea28b6870384612e55461a82663c4f600de5d19 (patch) | |
tree | 7bcd8079dfb2037697444ae54ba030dcd6d2baee /lisp | |
parent | b9315c21aaf9869da6b9377a3e3dd2acbbbdd255 (diff) | |
download | emacs-8ea28b6870384612e55461a82663c4f600de5d19.tar.gz |
* 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.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/frame.el | 10 |
1 files changed, 7 insertions, 3 deletions
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)) |