2082 |
if (XINT (Fminibuffer_prompt_end ()) == ZV) |
if (XINT (Fminibuffer_prompt_end ()) == ZV) |
2083 |
goto exit; |
goto exit; |
2084 |
|
|
2085 |
if (!NILP (Ftest_completion (Fminibuffer_contents (), |
val = Fminibuffer_contents (); |
2086 |
|
if (!NILP (Ftest_completion (val, |
2087 |
Vminibuffer_completion_table, |
Vminibuffer_completion_table, |
2088 |
Vminibuffer_completion_predicate))) |
Vminibuffer_completion_predicate))) |
2089 |
|
{ |
2090 |
|
if (completion_ignore_case) |
2091 |
|
{ /* Fixup case of the field, if necessary. */ |
2092 |
|
Lisp_Object compl |
2093 |
|
= Ftry_completion (val, |
2094 |
|
Vminibuffer_completion_table, |
2095 |
|
Vminibuffer_completion_predicate); |
2096 |
|
if (STRINGP (compl) |
2097 |
|
/* If it weren't for this piece of paranoia, I'd replace |
2098 |
|
the whole thing with a call to do_completion. */ |
2099 |
|
&& EQ (Flength (val), Flength (compl))) |
2100 |
|
{ |
2101 |
|
del_range (XINT (Fminibuffer_prompt_end ()), ZV); |
2102 |
|
Finsert (1, &compl); |
2103 |
|
} |
2104 |
|
} |
2105 |
|
goto exit; |
2106 |
|
} |
2107 |
|
|
2108 |
goto exit; |
goto exit; |
2109 |
|
|
2110 |
/* Call do_completion, but ignore errors. */ |
/* Call do_completion, but ignore errors. */ |