equal
deleted
inserted
replaced
261 (end-of-line) )) |
261 (end-of-line) )) |
262 |
262 |
263 (defun gadict-nearest-headword () |
263 (defun gadict-nearest-headword () |
264 "Return nearest headword looking upward." |
264 "Return nearest headword looking upward." |
265 (save-excursion |
265 (save-excursion |
266 (let ( (orig (point)) limit headword ) |
266 (let ( (orig (point)) limit ) |
267 (re-search-backward "^__$") |
267 (re-search-backward "^__$") |
268 (forward-line 1) |
268 (forward-line 1) |
269 (unless (and (eq (char-before) ?\n) (eq (char-after) ?\n)) |
269 (unless (and (eq (char-before) ?\n) (eq (char-after) ?\n)) |
270 (error "Syntax error: there is not empty line after '__'...")) |
270 (error "Syntax error: there is not empty line after '__'...")) |
271 (forward-line 1) |
271 (forward-line 1) |