Mercurial > hg > xemacs-beta

comparison lisp/packages/font-lock.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 538048ae2ab8
children 43dd3413c7c7
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
1858 (list (concat "^\\(typedef[ \t]+struct\\|struct\\|static[ \t]+struct\\)" 1858 (list (concat "^\\(typedef[ \t]+struct\\|struct\\|static[ \t]+struct\\)"
1859 "[ \t]+\\(" ctoken "\\)[ \t]*\\(\{\\|$\\)") 1859 "[ \t]+\\(" ctoken "\\)[ \t]*\\(\{\\|$\\)")
1860 2 'font-lock-function-name-face) 1860 2 'font-lock-function-name-face)
1861 ;; 1861 ;;
1862 ;; Fontify case clauses. This is fast because its anchored on the left. 1862 ;; Fontify case clauses. This is fast because its anchored on the left.
1863 '("case[ \t]+\\(\\(\\sw\\|\\s_\\)+\\):". 1) 1863 '("case[ \t]+\\(\\(\\sw\\|\\s_\\)+\\)[ \t]+:". 1)
1864 ;; 1864 ;;
1865 '("\\<\\(default\\):". 1) 1865 '("\\<\\(default\\):". 1)
1866 ;; Fontify filenames in #include <...> preprocessor directives as strings. 1866 ;; Fontify filenames in #include <...> preprocessor directives as strings.
1867 '("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face) 1867 '("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face)
1868 ;; 1868 ;;