Mercurial > emacs
changeset 26278:701bf1148b2c
(blink-cursor-mode): Call internal-show-cursor instead
of show-cursor.
(blink-cursor-start, blink-cursor-end): Ditto.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 01 Nov 1999 14:41:31 +0000 |
| parents | 32e16b70ae15 |
| children | d0513261e174 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Mon Nov 01 14:21:42 1999 +0000 +++ b/lisp/frame.el Mon Nov 01 14:41:31 1999 +0000 @@ -838,7 +838,7 @@ (if on-p (progn ;; Hide the cursor. - (show-cursor 0) + (internal-show-cursor 0) (setq blink-cursor-idle-timer (run-with-idle-timer blink-cursor-delay blink-cursor-delay @@ -863,14 +863,14 @@ (add-hook 'pre-command-hook 'blink-cursor-end) (setq blink-cursor-timer (run-with-timer blink-cursor-interval blink-cursor-interval - 'show-cursor)))) + 'internal-show-cursor)))) (defun blink-cursor-end () "Stop cursor blinking. Installed as a pre-command hook by blink-cursor-start. Cancels the timer blink-cursor-timer and removes itself from the hook." (remove-hook 'pre-command-hook 'blink-cursor-end) - (show-cursor 0) + (internal-show-cursor 0) (cancel-timer blink-cursor-timer) (setq blink-cursor-timer nil))