Mercurial > emacs
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 |