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-comment-style () |
|
31 (set (make-local-variable 'comment-start) "#") |
|
32 (set (make-local-variable 'comment-continue) nil) |
|
33 (set (make-local-variable 'comment-end) "") |
|
34 (set (make-local-variable 'comment-end-skip) nil) |
|
35 (set (make-local-variable 'comment-multi-line) nil) |
|
36 (set (make-local-variable 'comment-use-syntax) t) ) |
29 |
37 |
30 (eval-when-compile |
38 (eval-when-compile |
31 (defvar font-lock-beg) |
39 (defvar font-lock-beg) |
32 (defvar font-lock-end)) |
40 (defvar font-lock-end)) |
33 |
41 |
78 (modify-syntax-entry ?\" ".") |
86 (modify-syntax-entry ?\" ".") |
79 (make-local-variable 'paragraph-separate) |
87 (make-local-variable 'paragraph-separate) |
80 (setq paragraph-separate "\\([ \t\f]*\\|_\\{5,\\}\\)$") |
88 (setq paragraph-separate "\\([ \t\f]*\\|_\\{5,\\}\\)$") |
81 (make-local-variable 'paragraph-start) |
89 (make-local-variable 'paragraph-start) |
82 (setq paragraph-start paragraph-separate) |
90 (setq paragraph-start paragraph-separate) |
|
91 (gadict-setup-comment-style) |
83 (add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) ) |
92 (add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) ) |
84 |
93 |
85 (provide 'gadict) |
94 (provide 'gadict) |
86 |
95 |
87 ;;; dict-mode.el ends here |
96 ;;; dict-mode.el ends here |