equal
deleted
inserted
replaced
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 |
|
38 (defun gadict-setup-paragraph () |
|
39 (make-local-variable 'paragraph-separate) |
|
40 (setq paragraph-separate "__$") |
|
41 (make-local-variable 'paragraph-start) |
|
42 (setq paragraph-start "__$") ) |
|
43 |
|
44 (defun gadict-setup-page () |
|
45 (make-local-variable 'paragraph-separate) |
|
46 (setq page-delimiter "__$")) |
37 |
47 |
38 (eval-when-compile |
48 (eval-when-compile |
39 (defvar font-lock-beg) |
49 (defvar font-lock-beg) |
40 (defvar font-lock-end)) |
50 (defvar font-lock-end)) |
41 |
51 |
82 (font-lock-multiline . t) |
92 (font-lock-multiline . t) |
83 )) |
93 )) |
84 (gadict-setup-keymap) |
94 (gadict-setup-keymap) |
85 (modify-syntax-entry ?' ".") |
95 (modify-syntax-entry ?' ".") |
86 (modify-syntax-entry ?\" ".") |
96 (modify-syntax-entry ?\" ".") |
87 (make-local-variable 'paragraph-separate) |
97 (gadict-setup-paragraph) |
88 (setq paragraph-separate "\\([ \t\f]*\\|_\\{5,\\}\\)$") |
98 (gadict-setup-page) |
89 (make-local-variable 'paragraph-start) |
|
90 (setq paragraph-start paragraph-separate) |
|
91 (gadict-setup-comment) |
99 (gadict-setup-comment) |
92 (add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) ) |
100 (add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) ) |
93 |
101 |
94 (provide 'gadict) |
102 (provide 'gadict) |
95 |
103 |