equal
deleted
inserted
replaced
18 ;;; Code: |
18 ;;; Code: |
19 |
19 |
20 (defvar gadict-font-lock-keywords |
20 (defvar gadict-font-lock-keywords |
21 '( ("^\\(_\\{2\\}\\)\n\n\\(\\w.*\\)$" |
21 '( ("^\\(_\\{2\\}\\)\n\n\\(\\w.*\\)$" |
22 (1 font-lock-function-name-face) (2 font-lock-keyword-face)) |
22 (1 font-lock-function-name-face) (2 font-lock-keyword-face)) |
23 ("^ +\\[[^]\n]+]" . font-lock-type-face) )) |
23 ("^ +\\[[^]\n]+]" . font-lock-type-face) |
|
24 ("^\\(?:en\\|ru\\|uk\\|la\\): " . font-lock-type-face) |
|
25 ("^\\(?:en\\|ru\\|uk\\|la\\)> " . font-lock-doc-face) |
|
26 ("^\\(?:topic\\|ant\\|syn\\): " . font-lock-doc-face) |
|
27 ("^ +\\(?:v1\\|v2\\|v3\\|s\\|pl\\|male\\|female\\)$" . font-lock-doc-face) |
|
28 ("^\\(?:n\\|v\\|phr\\.v\\|adj\\|adv\\|pron\\|prep\\|num\\|conj\\|int\\)$" . font-lock-type-face) )) |
24 |
29 |
25 (eval-when-compile |
30 (eval-when-compile |
26 (defvar font-lock-beg) |
31 (defvar font-lock-beg) |
27 (defvar font-lock-end)) |
32 (defvar font-lock-end)) |
28 |
33 |