equal
deleted
inserted
replaced
215 (if (re-search-forward "^__$" nil t) |
215 (if (re-search-forward "^__$" nil t) |
216 (forward-line 0) |
216 (forward-line 0) |
217 (goto-char (point-max))) |
217 (goto-char (point-max))) |
218 (exchange-point-and-mark)) |
218 (exchange-point-and-mark)) |
219 |
219 |
|
220 (defun gadict-mark-line () |
|
221 "Mark current line." |
|
222 (forward-line 0) |
|
223 (set-mark (point)) |
|
224 (forward-line 1) |
|
225 (exchange-point-and-mark)) |
|
226 |
220 (defvar er/try-expand-list) |
227 (defvar er/try-expand-list) |
221 (defun gadict-setup-expansions () |
228 (defun gadict-setup-expansions () |
222 "Add `gadict-mode' specific expansions." |
229 "Add `gadict-mode' specific expansions." |
223 (set (make-local-variable 'er/try-expand-list) (list #'er/mark-word #'er/mark-text-sentence #'gadict-mark-article))) |
230 (set (make-local-variable 'er/try-expand-list) (list #'er/mark-word #'gadict-mark-line #'gadict-mark-article))) |
224 |
231 |
225 (defvar font-lock-beg) |
232 (defvar font-lock-beg) |
226 (defvar font-lock-end) |
233 (defvar font-lock-end) |
227 (defun gadict-font-lock-extend-region () |
234 (defun gadict-font-lock-extend-region () |
228 "Look for '__' expression and extend `font-lock-beg' and `font-lock-end'." |
235 "Look for '__' expression and extend `font-lock-beg' and `font-lock-end'." |