Mercurial > hg > xemacs-beta

comparison lisp/packages/lazy-lock.el @ 183:e121b013d1f0 r20-3b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b18
author cvs
date Mon, 13 Aug 2007 09:54:23 +0200
parents 85ec50267440
children f53b5ca2e663
comparison
equal deleted inserted replaced
182:f07455f06202 183:e121b013d1f0
734 (end-of-line) (forward-line (- (window-height))) (point)) 734 (end-of-line) (forward-line (- (window-height))) (point))
735 (min (max (window-start) (point-min)) (point-max)))) 735 (min (max (window-start) (point-min)) (point-max))))
736 (we (if lazy-lock-hide-invisible 736 (we (if lazy-lock-hide-invisible
737 (save-excursion 737 (save-excursion
738 (end-of-line) (forward-line (window-height)) (point)) 738 (end-of-line) (forward-line (window-height)) (point))
739 (min (max (1- (window-end)) (point-min)) (point-max))))) 739 (min (max (1- (window-end nil t)) (point-min)) (point-max)))))
740 (if (or (/= ws lazy-lock-cache-start) (/= we lazy-lock-cache-end)) 740 (if (or (/= ws lazy-lock-cache-start) (/= we lazy-lock-cache-end))
741 ;; Find where we haven't `fontified' before. 741 ;; Find where we haven't `fontified' before.
742 (let* ((start (or (text-property-not-all ws we 'fontified t) ws)) 742 (let* ((start (or (text-property-not-all ws we 'fontified t) ws))
743 (end (or (text-property-any start we 'fontified t) we)) 743 (end (or (text-property-any start we 'fontified t) we))
744 (modified (buffer-modified-p)) (inhibit-read-only t) 744 (modified (buffer-modified-p)) (inhibit-read-only t)