aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/frame.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index e196218164f..3f35adc5f5b 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -838,7 +838,7 @@ window blinks."
838 (if on-p 838 (if on-p
839 (progn 839 (progn
840 ;; Hide the cursor. 840 ;; Hide the cursor.
841 (show-cursor 0) 841 (internal-show-cursor 0)
842 (setq blink-cursor-idle-timer 842 (setq blink-cursor-idle-timer
843 (run-with-idle-timer blink-cursor-delay 843 (run-with-idle-timer blink-cursor-delay
844 blink-cursor-delay 844 blink-cursor-delay
@@ -863,14 +863,14 @@ Arranges to cancel that timer by installing a pre command hook."
863 (add-hook 'pre-command-hook 'blink-cursor-end) 863 (add-hook 'pre-command-hook 'blink-cursor-end)
864 (setq blink-cursor-timer 864 (setq blink-cursor-timer
865 (run-with-timer blink-cursor-interval blink-cursor-interval 865 (run-with-timer blink-cursor-interval blink-cursor-interval
866 'show-cursor)))) 866 'internal-show-cursor))))
867 867
868(defun blink-cursor-end () 868(defun blink-cursor-end ()
869 "Stop cursor blinking. 869 "Stop cursor blinking.
870Installed as a pre-command hook by blink-cursor-start. Cancels 870Installed as a pre-command hook by blink-cursor-start. Cancels
871the timer blink-cursor-timer and removes itself from the hook." 871the timer blink-cursor-timer and removes itself from the hook."
872 (remove-hook 'pre-command-hook 'blink-cursor-end) 872 (remove-hook 'pre-command-hook 'blink-cursor-end)
873 (show-cursor 0) 873 (internal-show-cursor 0)
874 (cancel-timer blink-cursor-timer) 874 (cancel-timer blink-cursor-timer)
875 (setq blink-cursor-timer nil)) 875 (setq blink-cursor-timer nil))
876 876