# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1460651418 -10800
# Node ID fb584cf490dbc6aebe5246cd3e5bb26a7b42bbc2
# Parent  20e2e561fb14216d5c9d3cc629e0afd4bcd394f8
Fix: very first word inserted in second position, should at first.

diff -r 20e2e561fb14 -r fb584cf490db contrib/gadict.el
--- a/contrib/gadict.el	Sun Apr 10 13:12:20 2016 +0300
+++ b/contrib/gadict.el	Thu Apr 14 19:30:18 2016 +0300
@@ -139,8 +139,8 @@
     (backward-char)))
 
 (defun gadict-search-floor (headword)
-  "Move to HEADWORD definition or place before definition should
-be placed. Check for headwords ordering during search.
+  "Move to HEADWORD definition or place on posiiton for new corresponding
+definition. Check for headwords ordering during search.
 
 Return `t' if definition found, `nil' if no such headword."
   (interactive (list (read-string "Headword: ")))
@@ -154,6 +154,7 @@
       (when (string= headword prev)
         (throw 'exit t))
       (when (string< headword prev)
+        (goto-char (point-min))
         (throw 'exit nil))
       (while t
         (unless (re-search-forward "^__$" nil t)