equal
deleted
inserted
replaced
86 (defvar er/try-expand-list) |
86 (defvar er/try-expand-list) |
87 (defun gadict-setup-expansions () |
87 (defun gadict-setup-expansions () |
88 "Add `gadict-mode' specific expansions." |
88 "Add `gadict-mode' specific expansions." |
89 (set (make-local-variable 'er/try-expand-list) (list #'gadict-mark-article))) |
89 (set (make-local-variable 'er/try-expand-list) (list #'gadict-mark-article))) |
90 |
90 |
91 (eval-when-compile |
91 (defvar font-lock-beg) |
92 (defvar font-lock-beg) |
92 (defvar font-lock-end) |
93 (defvar font-lock-end)) |
|
94 |
|
95 (defun gadict-font-lock-extend-region () |
93 (defun gadict-font-lock-extend-region () |
96 "Look for '__' expression and extend `font-lock-beg' and `font-lock-end'." |
94 "Look for '__' expression and extend `font-lock-beg' and `font-lock-end'." |
97 ;; (message "%d:%d, %d lines" font-lock-beg font-lock-end (count-lines font-lock-beg font-lock-end)) |
95 ;; (message "%d:%d, %d lines" font-lock-beg font-lock-end (count-lines font-lock-beg font-lock-end)) |
98 (cond |
96 (cond |
99 ((and |
97 ((and |