equal
deleted
inserted
replaced
182 (set (make-local-variable 'comment-end-skip) nil) |
182 (set (make-local-variable 'comment-end-skip) nil) |
183 (set (make-local-variable 'comment-multi-line) nil) |
183 (set (make-local-variable 'comment-multi-line) nil) |
184 (set (make-local-variable 'comment-use-syntax) nil) ) |
184 (set (make-local-variable 'comment-use-syntax) nil) ) |
185 |
185 |
186 (defun gadict-setup-paragraph () |
186 (defun gadict-setup-paragraph () |
187 "Setup gadict paragraph definition." |
187 "Setup gadict sentence/paragraph definition." |
188 (set (make-local-variable 'paragraph-separate) "__$") |
188 (set (make-local-variable 'paragraph-separate) "__$") |
189 (set (make-local-variable 'paragraph-start) "__$") ) |
189 (set (make-local-variable 'paragraph-start) "__$") |
|
190 (set (make-local-variable 'sentence-end) "\n")) |
190 |
191 |
191 (defun gadict-setup-page () |
192 (defun gadict-setup-page () |
192 "Setup gadict page definition." |
193 "Setup gadict page definition." |
193 (set (make-local-variable 'page-delimiter) "__$") ) |
194 (set (make-local-variable 'page-delimiter) "__$") ) |
194 |
195 |
217 (exchange-point-and-mark)) |
218 (exchange-point-and-mark)) |
218 |
219 |
219 (defvar er/try-expand-list) |
220 (defvar er/try-expand-list) |
220 (defun gadict-setup-expansions () |
221 (defun gadict-setup-expansions () |
221 "Add `gadict-mode' specific expansions." |
222 "Add `gadict-mode' specific expansions." |
222 (set (make-local-variable 'er/try-expand-list) (list #'er/mark-word #'gadict-mark-article))) |
223 (set (make-local-variable 'er/try-expand-list) (list #'er/mark-word #'er/mark-text-sentence #'gadict-mark-article))) |
223 |
224 |
224 (defvar font-lock-beg) |
225 (defvar font-lock-beg) |
225 (defvar font-lock-end) |
226 (defvar font-lock-end) |
226 (defun gadict-font-lock-extend-region () |
227 (defun gadict-font-lock-extend-region () |
227 "Look for '__' expression and extend `font-lock-beg' and `font-lock-end'." |
228 "Look for '__' expression and extend `font-lock-beg' and `font-lock-end'." |
234 (goto-char font-lock-beg) |
235 (goto-char font-lock-beg) |
235 (forward-line -2) |
236 (forward-line -2) |
236 (setq font-lock-beg (point)) |
237 (setq font-lock-beg (point)) |
237 (goto-char font-lock-end) |
238 (goto-char font-lock-end) |
238 (forward-line 3) |
239 (forward-line 3) |
239 (setq font-lock-end (point)) |
240 (setq font-lock-end (point))) |
240 ) |
|
241 t) |
241 t) |
242 (t nil) )) |
242 (t nil) )) |
243 |
243 |
244 (defvar-local gadict-tr nil |
244 (defvar-local gadict-tr nil |
245 "Translation markers as string separated by comma. Define own |
245 "Translation markers as string separated by comma. Define own |