/[emacs]/emacs/src/minibuf.c
ViewVC logotype

Diff of /emacs/src/minibuf.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.274 by rms, Sat Nov 20 22:04:11 2004 UTC revision 1.275 by rms, Sat Nov 20 22:32:07 2004 UTC
# Line 2082  a repetition of this command will exit. Line 2082  a repetition of this command will exit.
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.  */

Legend:
Removed from v.1.274  
changed lines
  Added in v.1.275

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26