[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
blink-cursor-mode under ttys
From: |
Stefan Monnier |
Subject: |
blink-cursor-mode under ttys |
Date: |
Fri, 23 Dec 2005 12:07:56 -0500 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) |
In my xterm, blink-cursor-mode doesn't work.
Looking at the code I don't see any not and indeed it can be made to work
by changing
(defun blink-cursor-timer-function ()
"Timer function of timer `blink-cursor-timer'."
(internal-show-cursor nil (not (internal-show-cursor-p))))
into
(defun blink-cursor-timer-function ()
"Timer function of timer `blink-cursor-timer'."
(internal-show-cursor nil (not (internal-show-cursor-p)))
(let ((message-log-max nil)
(msg (current-message)))
(message "force cursor update")
(if msg (message "%s" msg) (message nil))))
Note that neither (force-mode-line-update t) nor (sit-for 0) nor the
combination of the two manages to cause "enough redisplay".
Stefan
- blink-cursor-mode under ttys,
Stefan Monnier <=
Re: blink-cursor-mode under ttys, Richard M. Stallman, 2005/12/23