equal
deleted
inserted
replaced
217 (exchange-point-and-mark)) |
217 (exchange-point-and-mark)) |
218 |
218 |
219 (defvar er/try-expand-list) |
219 (defvar er/try-expand-list) |
220 (defun gadict-setup-expansions () |
220 (defun gadict-setup-expansions () |
221 "Add `gadict-mode' specific expansions." |
221 "Add `gadict-mode' specific expansions." |
222 (set (make-local-variable 'er/try-expand-list) (list #'gadict-mark-article))) |
222 (set (make-local-variable 'er/try-expand-list) (list #'er/mark-word #'gadict-mark-article))) |
223 |
223 |
224 (defvar font-lock-beg) |
224 (defvar font-lock-beg) |
225 (defvar font-lock-end) |
225 (defvar font-lock-end) |
226 (defun gadict-font-lock-extend-region () |
226 (defun gadict-font-lock-extend-region () |
227 "Look for '__' expression and extend `font-lock-beg' and `font-lock-end'." |
227 "Look for '__' expression and extend `font-lock-beg' and `font-lock-end'." |