Mercurial > hg > xemacs-beta

comparison lisp/packages/font-lock.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 441bb1e64a06
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
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)))