Mercurial > emacs

comparison src/minibuf.c @ 22048:26a0c01f7551

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fminibuffer_complete_word): Fix the string-comparison loop.
author Richard M. Stallman <rms@gnu.org>
date Wed, 13 May 1998 00:30:55 +0000
parents bc29c7cef66a
children 2b0e6a1e7fb9
comparison
equal deleted inserted replaced
22047:678a1ed22116 22048:26a0c01f7551
1724 1724
1725 /* Set buffer to longest match of buffer tail and completion head. */ 1725 /* Set buffer to longest match of buffer tail and completion head. */
1726 if (i <= 0) i = 1; 1726 if (i <= 0) i = 1;
1727 start_pos= i; 1727 start_pos= i;
1728 buffer_nchars -= i; 1728 buffer_nchars -= i;
1729 while (1) 1729 while (i > 0)
1730 { 1730 {
1731 tem1 = Fcompare_strings (tem, make_number (start_pos), 1731 tem1 = Fcompare_strings (tem, make_number (start_pos), Qnil,
1732 make_number (buffer_nchars + start_pos),
1733 completion, make_number (0), 1732 completion, make_number (0),
1734 make_number (buffer_nchars), 1733 make_number (buffer_nchars),
1735 completion_ignore_case ? Qt : Qnil); 1734 completion_ignore_case ? Qt : Qnil);
1736 start_pos++; 1735 start_pos++;
1737 if (EQ (tem1, Qt)) 1736 if (EQ (tem1, Qt))
1738 break; 1737 break;
1739 i++; 1738 i++;
1739 buffer_nchars--;
1740 } 1740 }
1741 del_range (1, i + 1); 1741 del_range (1, i + 1);
1742 SET_PT_BOTH (ZV, ZV_BYTE); 1742 SET_PT_BOTH (ZV, ZV_BYTE);
1743 } 1743 }
1744 UNGCPRO; 1744 UNGCPRO;