(Fminibuffer_complete_word): Fix the string-comparison loop.

diff --git a/src/minibuf.c b/src/minibuf.c
index f69f06f5ec951c060e0d82d3c4031c9dccb09e77..bc86a912dd4abb7307a5207e1648ca8d3a3f6c9d 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -1726,10 +1726,9 @@ Return nil if there is no valid completion, else t.")
        if (i <= 0) i = 1;
        start_pos= i;
        buffer_nchars -= i;
-       while (1)
+       while (i > 0)
          {
-           tem1 = Fcompare_strings (tem, make_number (start_pos),
-                                    make_number (buffer_nchars + start_pos),
+           tem1 = Fcompare_strings (tem, make_number (start_pos), Qnil,
                                     completion, make_number (0),
                                     make_number (buffer_nchars),
                                     completion_ignore_case ? Qt : Qnil);
@@ -1737,6 +1736,7 @@ Return nil if there is no valid completion, else t.")
            if (EQ (tem1, Qt))
              break;
            i++;
+           buffer_nchars--;
          }
        del_range (1, i + 1);
        SET_PT_BOTH (ZV, ZV_BYTE);