Mercurial > hg > xemacs-beta

comparison lisp/font-lock.el @ 1027:089f79dae3ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-10-03 14:40:24 by stephent] improve docstring <87smznk2tm.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 03 Oct 2002 14:40:29 +0000
parents 665fe33715d6
children 10738b72057d
comparison
equal deleted inserted replaced
1026:6294b2d3cb3f 1027:089f79dae3ab
1712 1712
1713 1713
1714 ;; Various functions. 1714 ;; Various functions.
1715 1715
1716 (defun font-lock-compile-keywords (keywords) 1716 (defun font-lock-compile-keywords (keywords)
1717 "Compile KEYWORDS into the form (t KEYWORD ...). 1717 "Compile KEYWORDS (a list) and return the list of compiled keywords.
1718 Here KEYWORD is of the form (MATCHER HIGHLIGHT ...) as shown in the 1718 Each keyword has the form (MATCHER HIGHLIGHT ...). See `font-lock-keywords'."
1719 `font-lock-keywords' doc string."
1720 (if (eq (car-safe keywords) t) 1719 (if (eq (car-safe keywords) t)
1721 keywords 1720 keywords
1722 (cons t (mapcar 'font-lock-compile-keyword keywords)))) 1721 (cons t (mapcar 'font-lock-compile-keyword keywords))))
1723 1722
1724 (defun font-lock-compile-keyword (keyword) 1723 (defun font-lock-compile-keyword (keyword)