equal
deleted
inserted
replaced
42 (setq paragraph-start "__$") ) |
42 (setq paragraph-start "__$") ) |
43 |
43 |
44 (defun gadict-setup-page () |
44 (defun gadict-setup-page () |
45 (make-local-variable 'paragraph-separate) |
45 (make-local-variable 'paragraph-separate) |
46 (setq page-delimiter "__$")) |
46 (setq page-delimiter "__$")) |
|
47 |
|
48 (defun gadict-setup-syntax () |
|
49 (modify-syntax-entry ?' "w")) |
47 |
50 |
48 (eval-when-compile |
51 (eval-when-compile |
49 (defvar font-lock-beg) |
52 (defvar font-lock-beg) |
50 (defvar font-lock-end)) |
53 (defvar font-lock-end)) |
51 |
54 |
90 '(gadict-font-lock-keywords |
93 '(gadict-font-lock-keywords |
91 t nil nil nil |
94 t nil nil nil |
92 (font-lock-multiline . t) |
95 (font-lock-multiline . t) |
93 )) |
96 )) |
94 (gadict-setup-keymap) |
97 (gadict-setup-keymap) |
95 (modify-syntax-entry ?' ".") |
98 (gadict-setup-syntax) |
96 (modify-syntax-entry ?\" ".") |
|
97 (gadict-setup-paragraph) |
99 (gadict-setup-paragraph) |
98 (gadict-setup-page) |
100 (gadict-setup-page) |
99 (gadict-setup-comment) |
101 (gadict-setup-comment) |
100 (add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) ) |
102 (add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) ) |
101 |
103 |