equal
deleted
inserted
replaced
202 (while t |
202 (while t |
203 (unless (re-search-forward "^__$" nil t) |
203 (unless (re-search-forward "^__$" nil t) |
204 (throw 'exit nil)) |
204 (throw 'exit nil)) |
205 (forward-line 2) |
205 (forward-line 2) |
206 (setq curr (buffer-substring-no-properties (point) (line-end-position))) |
206 (setq curr (buffer-substring-no-properties (point) (line-end-position))) |
207 (unless (string< prev curr) |
207 (when (string> prev curr) |
208 (error (format "%s < %s" curr prev))) |
208 (error (format "%s < %s" curr prev))) |
209 (when (string= headword curr) |
209 (when (string= headword curr) |
210 (throw 'exit t)) |
210 (throw 'exit t)) |
211 (when (string< headword curr) |
211 (when (string< headword curr) |
212 (forward-line -2) |
212 (forward-line -2) |