81   (if (re-search-forward "^__$" nil t)

    81   (if (re-search-forward "^__$" nil t)

    82       (forward-line 0)

    82       (forward-line 0)

    83     (goto-char (point-max)))

    83     (goto-char (point-max)))

    84   (exchange-point-and-mark))

    84   (exchange-point-and-mark))

    85 

    85 

    86 (defun gadict-setup-expansions ()

    87 (defun gadict-setup-expansions ()

    87   "Add `gadict-mode' specific expansions."

    88   "Add `gadict-mode' specific expansions."

    88   (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)))

    89 

    90 

    90 (eval-when-compile

    91 (eval-when-compile