Mercurial > hg > xemacs-beta

comparison lisp/packages/blink-cursor.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 0d2f883870bc
children
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
31 (defvar blink-cursor-lost-focus nil) 31 (defvar blink-cursor-lost-focus nil)
32 32
33 (defun blink-cursor-callback (foo) 33 (defun blink-cursor-callback (foo)
34 (let ((inhibit-quit t) 34 (let ((inhibit-quit t)
35 (window (selected-window))) 35 (window (selected-window)))
36 (if blink-cursor-lost-focus 36 ;; Blinking cursor just doesn't cut it on TTY-s. Rather give it up.
37 (if (or (eq (console-type) 'tty)
38 blink-cursor-lost-focus)
37 nil 39 nil
38 (or blink-cursor-last-selected-window 40 (or blink-cursor-last-selected-window
39 (setq blink-cursor-last-selected-window window)) 41 (setq blink-cursor-last-selected-window window))
40 (if (eq window blink-cursor-last-selected-window) 42 (if (eq window blink-cursor-last-selected-window)
41 43