26 ("^\\(?:topic\\|ant\\|syn\\): " . font-lock-doc-face) |
26 ("^\\(?:topic\\|ant\\|syn\\): " . font-lock-doc-face) |
27 ("^ +\\(?:v1\\|v2\\|v3\\|s\\|pl\\|male\\|female\\)$" . 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) )) |
28 ("^\\(?:n\\|v\\|phr\\.v\\|adj\\|adv\\|pron\\|prep\\|num\\|conj\\|int\\)$" . font-lock-type-face) )) |
29 |
29 |
30 (defun gadict-setup-comment () |
30 (defun gadict-setup-comment () |
31 (set (make-local-variable 'comment-start) "#") |
31 (set (make-local-variable 'comment-start) "#") |
32 (set (make-local-variable 'comment-continue) nil) |
32 (set (make-local-variable 'comment-continue) nil) |
33 (set (make-local-variable 'comment-end) "") |
33 (set (make-local-variable 'comment-end) "") |
34 (set (make-local-variable 'comment-end-skip) nil) |
34 (set (make-local-variable 'comment-end-skip) nil) |
35 (set (make-local-variable 'comment-multi-line) nil) |
35 (set (make-local-variable 'comment-multi-line) nil) |
36 (set (make-local-variable 'comment-use-syntax) t) ) |
36 (set (make-local-variable 'comment-use-syntax) t) ) |
37 |
37 |
38 (defun gadict-setup-paragraph () |
38 (defun gadict-setup-paragraph () |
39 (make-local-variable 'paragraph-separate) |
39 (set (make-local-variable 'paragraph-separate) "__$") |
40 (setq paragraph-separate "__$") |
40 (set (make-local-variable 'paragraph-start) "__$") ) |
41 (make-local-variable 'paragraph-start) |
|
42 (setq paragraph-start "__$") ) |
|
43 |
41 |
44 (defun gadict-setup-page () |
42 (defun gadict-setup-page () |
45 (make-local-variable 'paragraph-separate) |
43 (set (make-local-variable 'page-delimiter) "__$") ) |
46 (setq page-delimiter "__$")) |
|
47 |
44 |
48 (defun gadict-setup-syntax () |
45 (defun gadict-setup-syntax () |
49 (modify-syntax-entry ?' "w")) |
46 (modify-syntax-entry ?' "w")) |
50 |
47 |
51 (eval-when-compile |
48 (eval-when-compile |