contrib/gadict.el
changeset 730 0ea3bcaae957
parent 726 d41eddc3561f
child 742 5a5be84a113d
--- 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))