Mercurial > hg > xemacs-beta

comparison lisp/packages/font-lock.el @ 213:78f53ef88e17 r20-4b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b5
author cvs
date Mon, 13 Aug 2007 10:06:47 +0200
parents 41ff10fd062f
children 1f0dabaa0855
comparison
equal deleted inserted replaced
212:d8688acf4c5b 213:78f53ef88e17
1181 (re-search-forward matcher end t) 1181 (re-search-forward matcher end t)
1182 (funcall matcher end))) 1182 (funcall matcher end)))
1183 ;; Apply each highlight to this instance of `matcher', which may be 1183 ;; Apply each highlight to this instance of `matcher', which may be
1184 ;; specific highlights or more keywords anchored to `matcher'. 1184 ;; specific highlights or more keywords anchored to `matcher'.
1185 (setq highlights (cdr keyword)) 1185 (setq highlights (cdr keyword))
1186 (while highlights 1186 (while highlights
1187 (if (numberp (car (car highlights))) 1187 (if (numberp (car (car highlights)))
1188 (font-lock-apply-highlight (car highlights)) 1188 (let ((end (match-end (car (car highlights)))))
1189 (font-lock-fontify-anchored-keywords (car highlights) end)) 1189 (font-lock-apply-highlight (car highlights))
1190 (setq highlights (cdr highlights)))) 1190 ;; restart search just after the end of the
1191 ;; keyword so keywords can share bracketing
1192 ;; expressions.
1193 (and end (goto-char end)))
1194 (font-lock-fontify-anchored-keywords (car highlights) end))
1195 (setq highlights (cdr highlights))))
1191 (setq keywords (cdr keywords)))) 1196 (setq keywords (cdr keywords))))
1192 (if loudly (display-message 1197 (if loudly (display-message
1193 'progress 1198 'progress
1194 (format "Fontifying %s... done." (buffer-name)))))) 1199 (format "Fontifying %s... done." (buffer-name))))))
1195 1200