Mercurial > hg > xemacs-beta

comparison lisp/font-lock.el @ 227:0e522484dd2a r20-5b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b12
author cvs
date Mon, 13 Aug 2007 10:12:37 +0200
parents 6c0ae1f9357f
children f220cc83d72e
comparison
equal deleted inserted replaced
226:eea38c7ad7b4 227:0e522484dd2a
1783 ;; Anything not a variable or type declaration is fontified as a function. 1783 ;; Anything not a variable or type declaration is fontified as a function.
1784 ;; It would be cleaner to allow preceding whitespace, but it would also be 1784 ;; It would be cleaner to allow preceding whitespace, but it would also be
1785 ;; about five times slower. 1785 ;; about five times slower.
1786 (list (concat "^(\\(def\\(" 1786 (list (concat "^(\\(def\\("
1787 ;; Variable declarations. 1787 ;; Variable declarations.
1788 "\\(const\\(\\|ant\\)\\|ine-key\\(\\|-after\\)\\|var\\)\\|" 1788 "\\(const\\(\\|ant\\)\\|ine-key\\(\\|-after\\)\\|var\\|custom\\)\\|"
1789 ;; Structure declarations. 1789 ;; Structure declarations.
1790 "\\(class\\|struct\\|type\\)\\|" 1790 "\\(class\\|struct\\|type\\)\\|"
1791 ;; Everything else is a function declaration. 1791 ;; Everything else is a function declaration.
1792 "\\([^ \t\n\(\)]+\\)" 1792 "\\([^ \t\n\(\)]+\\)"
1793 "\\)\\)\\>" 1793 "\\)\\)\\>"