Allow duplication of consequent headwords to word around different
authorOleksandr Gavenko <gavenkoa@gmail.com>
Fri, 30 Dec 2016 23:54:54 +0200
changeset 730 0ea3bcaae957
parent 729 f2f17e16ebdf
child 731 a44715e56dc2
Allow duplication of consequent headwords to word around different pronunciation depending on POS.
contrib/gadict.el
--- 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))