Lines Matching +defs:font +defs:lock +defs:builtin +defs:face
67 (defface hpf-black-komma-face
72 (defface hpf-blue-komma-face
77 (defvar hpf-black-komma-face 'hpf-black-komma-face
80 (defvar hpf-annotation-face 'hpf-annotation-face
81 "HPF mode face for Annotations")
82 (setq hpf-annotation-face 'font-lock-constant-face)
84 (defvar hpf-name-face 'hpf-name-face)
85 (setq hpf-name-face 'font-lock-variable-name-face)
87 (defvar hpf-keyword-face 'hpf-keyword-face)
88 (setq hpf-keyword-face 'font-lock-keyword-face)
90 (defvar hpf-library-name-face 'hpf-library-name-face)
91 (setq hpf-library-name-face 'font-lock-type-face)
93 (defvar hpf-builtin-face 'hpf-builtin-face)
94 (setq hpf-builtin-face 'font-lock-builtin-face)
96 (defvar hpf-comment-face 'hpf-comment-face)
97 (setq hpf-comment-face 'font-lock-comment-face)
99 (defvar hpf-other-name-face 'hpf-other-name-face)
101 (setq hpf-other-name-face 'hpf-blue-komma-face)
102 (setq hpf-other-name-face 'font-lock-function-name-face)
105 (defvar hpf-string-char-face 'hpf-string-char-face)
106 (setq hpf-string-char-face 'font-lock-string-face)
109 ;; "Warning: Do not design an element of font-lock-keywords to match
111 ;; font-lock-fontify-buffer handles multi-line patterns correctly,
119 (defconst hpf-font-lock-specialcomment
121 '("#.*$" (0 (symbol-value 'hpf-comment-face) keep t)))
124 (defconst hpf-font-lock-keywords
125 (append hpf-font-lock-specialcomment
127 '("[,;.]" (0 (symbol-value 'casl-black-komma-face) t t))
130 (2 (symbol-value 'hpf-keyword-face) keep t))
133 (2 (symbol-value 'hpf-keyword-face) keep t))
136 (2 (symbol-value 'hpf-keyword-face) keep t)
137 (3 (symbol-value 'hpf-other-name-face) keep t)
138 (5 (symbol-value 'hpf-other-name-face) keep t)
139 (7 (symbol-value 'hpf-other-name-face) keep t))
143 (defconst hpf-font-lock-idname
144 (append hpf-font-lock-keywords
148 (2 (symbol-value 'hpf-library-name-face) keep t))
153 (2 (symbol-value 'hpf-other-name-face) keep t))
156 (3 (symbol-value 'hpf-builtin-face) keep t))
159 (3 (symbol-value 'hpf-other-name-face) keep t))
163 (defconst hpf-font-lock-string
164 (append hpf-font-lock-idname
166 (0 (symbol-value 'hpf-string-char-face) keep t))
171 ;; (defvar hpf-font-lock-syntax-highligthing hpf-font-lock-keywords
172 (defvar hpf-font-lock-syntax-highligthing (symbol-value 'hpf-font-lock-string)
190 (make-local-variable 'font-lock-defaults)
191 (setq font-lock-defaults
192 '(hpf-font-lock-syntax-highligthing))
193 (make-local-variable 'font-lock-keywords-only)
194 (setq font-lock-keywords-only nil)