From 669c6673fc321b34b052f0d1962545d439a4de88 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 13 May 1998 00:30:55 +0000 Subject: [PATCH] (Fminibuffer_complete_word): Fix the string-comparison loop. --- src/minibuf.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/minibuf.c b/src/minibuf.c index f69f06f5ec9..bc86a912dd4 100644 --- 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); -- 2.39.2