Mercurial > hg > xemacs-beta

comparison lisp/packages/font-lock.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents 8619ce7e4c50
children 1370575f1259
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
1099 "Apply HIGHLIGHT following a match. 1099 "Apply HIGHLIGHT following a match.
1100 HIGHLIGHT should be of the form MATCH-HIGHLIGHT, see `font-lock-keywords'." 1100 HIGHLIGHT should be of the form MATCH-HIGHLIGHT, see `font-lock-keywords'."
1101 (let* ((match (nth 0 highlight)) 1101 (let* ((match (nth 0 highlight))
1102 (start (match-beginning match)) (end (match-end match)) 1102 (start (match-beginning match)) (end (match-end match))
1103 (override (nth 2 highlight))) 1103 (override (nth 2 highlight)))
1104 (and end
1105 (goto-char end)) ;; tlp00 hack to allow for back to back fonts
1106 (let ((newface (nth 1 highlight))) 1104 (let ((newface (nth 1 highlight)))
1107 (or (symbolp newface) 1105 (or (symbolp newface)
1108 (setq newface (eval newface))) 1106 (setq newface (eval newface)))
1109 (cond ((not start) 1107 (cond ((not start)
1110 ;; No match but we might not signal an error. 1108 ;; No match but we might not signal an error.