Lines Matching +defs:font +defs:lock +defs:keywords
20 ;; for Modula-2 keywords, knows about the standard layout rules, and supports
27 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
168 (make-local-variable 'font-lock-defaults)
169 (setq font-lock-defaults
170 '((m3-font-lock-keywords
171 m3-font-lock-keywords-1 m3-font-lock-keywords-2)
174 ;(font-lock-comment-start-regexp . "(\\*")
181 (defconst m3-font-lock-keywords-1
186 (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t))
190 (1 font-lock-keyword-face)
191 (font-lock-match-c-style-declaration-item-and-skip-to-next
193 (1 font-lock-constant-face)))
197 ;; ("<\\*.*\\*>" . font-lock-warning-face)
199 ("<\\*[ \t]*\\(\\sw+\\)" 1 font-lock-warning-face prepend)
203 (defconst m3-font-lock-keywords-2
204 (append m3-font-lock-keywords-1
211 (m3-keywords
230 (concat "\\<\\(" m3-keywords "\\)\\>")
233 (cons (concat "\\<\\(" m3-builtins "\\)\\>") 'font-lock-builtin-face)
236 (cons (concat "\\<\\(" m3-types "\\)\\>") 'font-lock-type-face)
240 (1 font-lock-keyword-face)
241 (font-lock-match-c-style-declaration-item-and-skip-to-next
243 (1 font-lock-function-name-face)))
246 '("\\<\\(FALSE\\|NIL\\|NULL\\|TRUE\\)\\>" . font-lock-constant-face)
250 (defvar m3-font-lock-keywords m3-font-lock-keywords-1
253 ;; We don't actually have different keywords for Modula-2. Volunteers?
254 (defconst m2-font-lock-keywords-1 m3-font-lock-keywords-1
257 (defconst m2-font-lock-keywords-2 m3-font-lock-keywords-2
260 (defvar m2-font-lock-keywords m2-font-lock-keywords-1