blink-cursor-mode under ttys

[Stefan Monnier <monnier@iro.umontreal.ca>]

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