author | Oleksandr Gavenko <gavenkoa@gmail.com> |
Fri, 30 Dec 2016 23:54:54 +0200 | |
changeset 730 | 0ea3bcaae957 |
parent 729 | f2f17e16ebdf |
child 731 | a44715e56dc2 |
contrib/gadict.el | file | annotate | diff | comparison | revisions |
--- a/contrib/gadict.el Fri Dec 30 23:37:41 2016 +0200 +++ b/contrib/gadict.el Fri Dec 30 23:54:54 2016 +0200 @@ -204,7 +204,7 @@ (throw 'exit nil)) (forward-line 2) (setq curr (buffer-substring-no-properties (point) (line-end-position))) - (unless (string< prev curr) + (when (string> prev curr) (error (format "%s < %s" curr prev))) (when (string= headword curr) (throw 'exit t))