equal
deleted
inserted
replaced
49 (defun gadict-setup-page () |
49 (defun gadict-setup-page () |
50 (set (make-local-variable 'page-delimiter) "__$") ) |
50 (set (make-local-variable 'page-delimiter) "__$") ) |
51 |
51 |
52 (defun gadict-setup-syntax () |
52 (defun gadict-setup-syntax () |
53 (modify-syntax-entry ?' "w")) |
53 (modify-syntax-entry ?' "w")) |
|
54 |
|
55 (defun gadict-mark-article () |
|
56 (end-of-line) |
|
57 (re-search-backward "^__$") |
|
58 (set-mark (point)) |
|
59 (forward-line) |
|
60 (if (re-search-forward "^__$" nil t) |
|
61 (forward-line 0) |
|
62 (goto-char (point-max))) |
|
63 (exchange-point-and-mark)) |
|
64 |
|
65 (defun gadict-setup-expansions () |
|
66 "Adds gadict-mode specific expansions." |
|
67 (set (make-local-variable 'er/try-expand-list) (list #'gadict-mark-article))) |
54 |
68 |
55 (eval-when-compile |
69 (eval-when-compile |
56 (defvar font-lock-beg) |
70 (defvar font-lock-beg) |
57 (defvar font-lock-end)) |
71 (defvar font-lock-end)) |
58 |
72 |
108 (gadict-setup-fontlock) |
122 (gadict-setup-fontlock) |
109 (gadict-setup-keymap) |
123 (gadict-setup-keymap) |
110 (gadict-setup-syntax) |
124 (gadict-setup-syntax) |
111 (gadict-setup-paragraph) |
125 (gadict-setup-paragraph) |
112 (gadict-setup-page) |
126 (gadict-setup-page) |
113 (gadict-setup-comment) ) |
127 (gadict-setup-comment) |
|
128 (gadict-setup-expansions) ) |
114 |
129 |
115 (provide 'gadict) |
130 (provide 'gadict) |
116 |
131 |
117 ;;; dict-mode.el ends here |
132 ;;; dict-mode.el ends here |