mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(blink-cursor-mode): Call internal-show-cursor instead

Browse Source 
of show-cursor.
(blink-cursor-start, blink-cursor-end): Ditto.
This commit is contained in:
Gerd Moellmann 1999-11-01 14:41:31 +00:00
parent d20679eb8f
commit 90c6f4b650
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/frame.el
View File

@ -838,7 +838,7 @@ window blinks."
(if on-p (if on-p
(progn (progn
;; Hide the cursor. ;; Hide the cursor.
(show-cursor 0) (internal-show-cursor 0)
(setq blink-cursor-idle-timer (setq blink-cursor-idle-timer
(run-with-idle-timer blink-cursor-delay (run-with-idle-timer blink-cursor-delay
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) (add-hook 'pre-command-hook 'blink-cursor-end)
(setq blink-cursor-timer (setq blink-cursor-timer
(run-with-timer blink-cursor-interval blink-cursor-interval (run-with-timer blink-cursor-interval blink-cursor-interval
'show-cursor)))) 'internal-show-cursor))))
(defun blink-cursor-end () (defun blink-cursor-end ()
"Stop cursor blinking. "Stop cursor blinking.
Installed as a pre-command hook by blink-cursor-start. Cancels Installed as a pre-command hook by blink-cursor-start. Cancels
the timer blink-cursor-timer and removes itself from the hook." the timer blink-cursor-timer and removes itself from the hook."
(remove-hook 'pre-command-hook 'blink-cursor-end) (remove-hook 'pre-command-hook 'blink-cursor-end)
(show-cursor 0) (internal-show-cursor 0)
(cancel-timer blink-cursor-timer) (cancel-timer blink-cursor-timer)
(setq blink-cursor-timer nil)) (setq blink-cursor-timer nil))