equal
deleted
inserted
replaced
24 ("^\\(?:en\\|ru\\|uk\\|la\\): " . font-lock-type-face) |
24 ("^\\(?:en\\|ru\\|uk\\|la\\): " . font-lock-type-face) |
25 ("^\\(?:en\\|ru\\|uk\\|la\\)> " . font-lock-doc-face) |
25 ("^\\(?:en\\|ru\\|uk\\|la\\)> " . font-lock-doc-face) |
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 |
|
30 (defun gadict-setup-fontlock () |
|
31 (setq font-lock-defaults |
|
32 '(gadict-font-lock-keywords |
|
33 t nil nil nil |
|
34 (font-lock-multiline . t) )) |
|
35 (add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) ) |
29 |
36 |
30 (defun gadict-setup-comment () |
37 (defun gadict-setup-comment () |
31 (set (make-local-variable 'comment-start) "#") |
38 (set (make-local-variable 'comment-start) "#") |
32 (set (make-local-variable 'comment-continue) nil) |
39 (set (make-local-variable 'comment-continue) nil) |
33 (set (make-local-variable 'comment-end) "") |
40 (set (make-local-variable 'comment-end) "") |
84 (define-key gadict-mode-map [C-return] 'gadict-new-entry)) |
91 (define-key gadict-mode-map [C-return] 'gadict-new-entry)) |
85 |
92 |
86 ;;;###autoload |
93 ;;;###autoload |
87 (define-derived-mode gadict-mode fundamental-mode "gadict" |
94 (define-derived-mode gadict-mode fundamental-mode "gadict" |
88 "Derived mode for editing gadict dictionary source files." |
95 "Derived mode for editing gadict dictionary source files." |
89 (setq font-lock-defaults |
96 (gadict-setup-fontlock) |
90 '(gadict-font-lock-keywords |
|
91 t nil nil nil |
|
92 (font-lock-multiline . t) |
|
93 )) |
|
94 (gadict-setup-keymap) |
97 (gadict-setup-keymap) |
95 (gadict-setup-syntax) |
98 (gadict-setup-syntax) |
96 (gadict-setup-paragraph) |
99 (gadict-setup-paragraph) |
97 (gadict-setup-page) |
100 (gadict-setup-page) |
98 (gadict-setup-comment) |
101 (gadict-setup-comment) ) |
99 (add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) ) |
|
100 |
102 |
101 (provide 'gadict) |
103 (provide 'gadict) |
102 |
104 |
103 ;;; dict-mode.el ends here |
105 ;;; dict-mode.el ends here |