Mercurial > hg > xemacs-beta

comparison lisp/packages/font-lock.el @ 96:dbb370e3c29e r20-0final

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0final
author cvs
date Mon, 13 Aug 2007 09:12:40 +0200
parents 821dec489c24
children a145efe76779
comparison
equal deleted inserted replaced
95:e8c07a565f9c 96:dbb370e3c29e
1156 (make-string (setq count (1+ count)) ?.))) 1156 (make-string (setq count (1+ count)) ?.)))
1157 ;; 1157 ;;
1158 ;; Find an occurrence of `matcher' from `start' to `end'. 1158 ;; Find an occurrence of `matcher' from `start' to `end'.
1159 (setq keyword (car keywords) matcher (car keyword)) 1159 (setq keyword (car keywords) matcher (car keyword))
1160 (goto-char start) 1160 (goto-char start)
1161 (while (if (stringp matcher) 1161 (while (and (< (point) end)
1162 (re-search-forward matcher end t) 1162 (if (stringp matcher)
1163 (funcall matcher end)) 1163 (re-search-forward matcher end t)
1164 (funcall matcher end)))
1164 ;; Apply each highlight to this instance of `matcher', which may be 1165 ;; Apply each highlight to this instance of `matcher', which may be
1165 ;; specific highlights or more keywords anchored to `matcher'. 1166 ;; specific highlights or more keywords anchored to `matcher'.
1166 (setq highlights (cdr keyword)) 1167 (setq highlights (cdr keyword))
1167 (while highlights 1168 (while highlights
1168 (if (numberp (car (car highlights))) 1169 (if (numberp (car (car highlights)))
1169 (font-lock-apply-highlight (car highlights)) 1170 (font-lock-apply-highlight (car highlights))
1170 (font-lock-fontify-anchored-keywords (car highlights) end)) 1171 (font-lock-fontify-anchored-keywords (car highlights) end))
1171 (setq highlights (cdr highlights)))) 1172 (setq highlights (cdr highlights))))