Mercurial > hg > xemacs-beta

comparison lisp/packages/lazy-lock.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children bcdc7deadc19
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
689 689
690 ;; DO NOT put this as a pre-idle hook! The sit-for messes up 690 ;; DO NOT put this as a pre-idle hook! The sit-for messes up
691 ;; mouse dragging. 691 ;; mouse dragging.
692 (defun lazy-lock-post-command-fontify-stealthily () 692 (defun lazy-lock-post-command-fontify-stealthily ()
693 ;; Do groovy things if (a-d) above, (e) not moving the mouse, and (f) no 693 ;; Do groovy things if (a-d) above, (e) not moving the mouse, and (f) no
694 ;; input after after waiting for `lazy-lock-stealth-time'. 694 ;; input after waiting for `lazy-lock-stealth-time'.
695 (if (and lazy-lock-cache-continue lazy-lock-stealth-time) 695 (if (and lazy-lock-cache-continue lazy-lock-stealth-time)
696 (condition-case data 696 (condition-case data
697 (if (lazy-lock-sit-for lazy-lock-stealth-time) 697 (if (lazy-lock-sit-for lazy-lock-stealth-time)
698 ;; Do the invisible parts of buffers. 698 ;; Do the invisible parts of buffers.
699 (lazy-lock-fontify-walk-stealthily)) 699 (lazy-lock-fontify-walk-stealthily))