From 90c6f4b6500c7d015386151f16bf05ea24b89c8d Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 1 Nov 1999 14:41:31 +0000 Subject: [PATCH] (blink-cursor-mode): Call internal-show-cursor instead of show-cursor. (blink-cursor-start, blink-cursor-end): Ditto. --- lisp/frame.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/frame.el b/lisp/frame.el index e196218164..3f35adc5f5 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -838,7 +838,7 @@ window blinks." (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 @@ Arranges to cancel that timer 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 - '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)) -- 2.39.2