equal
deleted
inserted
replaced
14 ;; |
14 ;; |
15 ;; Very pure release. |
15 ;; Very pure release. |
16 |
16 |
17 ;;; Code: |
17 ;;; Code: |
18 |
18 |
19 (setq dict-c5-mode-map (make-sparse-keymap)) |
19 (defvar dict-c5-mode-map (make-sparse-keymap)) |
20 ;; (define-key dict-c5-mode-map (kbd "RET") 'my-xxx) |
20 ;; (define-key dict-c5-mode-map (kbd "RET") 'my-xxx) |
21 |
21 |
22 (defvar dict-c5-font-lock-keywords |
22 (defvar dict-c5-font-lock-keywords |
23 '( |
23 '( |
24 ("^\\(_\\{5,\\}\\)\n\n\\(\\w.*\\)$" |
24 ("^\\(_\\{5,\\}\\)\n\n\\(\\w.*\\)$" |
25 (1 font-lock-function-name-face) (2 font-lock-keyword-face)) |
25 (1 font-lock-function-name-face) (2 font-lock-keyword-face)) |
26 ("\\[[^]\n]+]" . font-lock-type-face) |
26 ("\\[[^]\n]+]" . font-lock-type-face) |
27 )) |
27 )) |
|
28 |
|
29 (eval-when-compile |
|
30 (defvar font-lock-beg) |
|
31 (defvar font-lock-end)) |
28 |
32 |
29 (defun dict-c5-font-lock-extend-region () |
33 (defun dict-c5-font-lock-extend-region () |
30 "Look for '_____' expression and extend `font-lock-beg' and `font-lock-end'." |
34 "Look for '_____' expression and extend `font-lock-beg' and `font-lock-end'." |
31 ;; (message "%d:%d, %d lines" font-lock-beg font-lock-end (count-lines font-lock-beg font-lock-end)) |
35 ;; (message "%d:%d, %d lines" font-lock-beg font-lock-end (count-lines font-lock-beg font-lock-end)) |
32 (cond |
36 (cond |