Mercurial > hg > xemacs-beta

comparison lisp/modes/pascal.el @ 151:59463afc5666 r20-3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b2
author cvs
date Mon, 13 Aug 2007 09:37:19 +0200
parents 34a5b81f86ba
children 25f70ba0133c
comparison
equal deleted inserted replaced
150:8ebb1c0f0f6f 151:59463afc5666
154 (modify-syntax-entry ?% "." pascal-mode-syntax-table) 154 (modify-syntax-entry ?% "." pascal-mode-syntax-table)
155 (modify-syntax-entry ?< "." pascal-mode-syntax-table) 155 (modify-syntax-entry ?< "." pascal-mode-syntax-table)
156 (modify-syntax-entry ?> "." pascal-mode-syntax-table) 156 (modify-syntax-entry ?> "." pascal-mode-syntax-table)
157 (modify-syntax-entry ?& "." pascal-mode-syntax-table) 157 (modify-syntax-entry ?& "." pascal-mode-syntax-table)
158 (modify-syntax-entry ?| "." pascal-mode-syntax-table) 158 (modify-syntax-entry ?| "." pascal-mode-syntax-table)
159 (modify-syntax-entry ?_ "w" pascal-mode-syntax-table) 159 (modify-syntax-entry ?_ "_" pascal-mode-syntax-table)
160 (modify-syntax-entry ?\' "\"" pascal-mode-syntax-table)) 160 (modify-syntax-entry ?\' "\"" pascal-mode-syntax-table))
161 161
162 (defconst pascal-font-lock-keywords (purecopy 162 (defconst pascal-font-lock-keywords (purecopy
163 (list 163 (list
164 '("^[ \t]*\\(function\\|pro\\(cedure\\|gram\\)\\)\\>[ \t]*\\(\\sw+\\)?" 164 '("^[ \t]*\\(function\\|pro\\(cedure\\|gram\\)\\)\\>[ \t]*\\(\\sw+\\)?"