Mercurial > emacs
comparison lisp/info.el @ 90368:48921c9f3f33
(Info-fontify-node): Check if already fontified or not
by next-single-property-change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 14 Mar 2006 12:14:57 +0000 |
| parents | a802c5505156 |
| children | 65ca8fb66a0d |
comparison
equal
deleted
inserted
replaced
| 90367:190ec6fe5153 | 90368:48921c9f3f33 |
|---|---|
| 3673 (save-excursion | 3673 (save-excursion |
| 3674 (let* ((inhibit-read-only t) | 3674 (let* ((inhibit-read-only t) |
| 3675 (case-fold-search t) | 3675 (case-fold-search t) |
| 3676 paragraph-markers | 3676 paragraph-markers |
| 3677 (not-fontified-p ; the node hasn't already been fontified | 3677 (not-fontified-p ; the node hasn't already been fontified |
| 3678 (not (let ((where (next-property-change (point-min)))) | 3678 (not (let ((where (next-single-property-change (point-min) |
| 3679 'font-lock-face))) | |
| 3679 (and where (not (= where (point-max))))))) | 3680 (and where (not (= where (point-max))))))) |
| 3680 (fontify-visited-p ; visited nodes need to be re-fontified | 3681 (fontify-visited-p ; visited nodes need to be re-fontified |
| 3681 (and Info-fontify-visited-nodes | 3682 (and Info-fontify-visited-nodes |
| 3682 ;; Don't take time to refontify visited nodes in huge nodes | 3683 ;; Don't take time to refontify visited nodes in huge nodes |
| 3683 (< (- (point-max) (point-min)) Info-fontify-maximum-menu-size))) | 3684 (< (- (point-max) (point-min)) Info-fontify-maximum-menu-size))) |