unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* blink-cursor-mode under ttys
@ 2005-12-23 17:07 Stefan Monnier
  2005-12-23 20:22 ` Dan Nicolaescu
  2005-12-24  2:36 ` Richard M. Stallman
  0 siblings, 2 replies; 8+ messages in thread
From: Stefan Monnier @ 2005-12-23 17:07 UTC (permalink / raw)



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

^ permalink raw reply	[flat|nested] 8+ messages in thread

end of thread, other threads:[~2005-12-26 21:56 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2005-12-23 17:07 blink-cursor-mode under ttys Stefan Monnier
2005-12-23 20:22 ` Dan Nicolaescu
2005-12-23 20:44   ` Juri Linkov
2005-12-24 18:06   ` Stefan Monnier
2005-12-25 19:07     ` Richard M. Stallman
2005-12-26 16:23       ` Stefan Monnier
2005-12-26 21:56         ` Richard M. Stallman
2005-12-24  2:36 ` Richard M. Stallman

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).