comparison src/minibuf.c @ 31140:943b0b727bc4

(do_completion): Always use compare-string, not string-equal because the latter doesn't pay attention to multibyteness of strings.
author Kenichi Handa <handa@m17n.org>
date Thu, 24 Aug 2000 03:24:13 +0000
parents 0c34d4d76e65
children 43566b0aec59
comparison
equal deleted inserted replaced
31139:ca63a2c1a83b 31140:943b0b727bc4
1608 However, for appearance, the string is rewritten if the case 1608 However, for appearance, the string is rewritten if the case
1609 changes. */ 1609 changes. */
1610 tem = Fcompare_strings (completion, Qnil, Qnil, string, Qnil, Qnil, Qt); 1610 tem = Fcompare_strings (completion, Qnil, Qnil, string, Qnil, Qnil, Qt);
1611 completedp = !EQ (tem, Qt); 1611 completedp = !EQ (tem, Qt);
1612 1612
1613 tem = Fstring_equal (completion, string); 1613 tem = Fcompare_strings (completion, Qnil, Qnil, string, Qnil, Qnil, Qnil);
1614 if (NILP (tem)) 1614 if (!EQ (tem, Qt))
1615 /* Rewrite the user's input. */ 1615 /* Rewrite the user's input. */
1616 { 1616 {
1617 Fdelete_field (make_number (ZV)); /* Some completion happened */ 1617 Fdelete_field (make_number (ZV)); /* Some completion happened */
1618 Finsert (1, &completion); 1618 Finsert (1, &completion);
1619 1619