comparison src/minibuf.c @ 83389:732c5740ca8f

Merged from [e-mail]--gnu-2005 (patch 610-614) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-610 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-611 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-612 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-613 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-614 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-429

83388:0cd72d94a6c7

alternative, the second serves as annotation.
`standard-output' must be a buffer.
The actual completion alternatives, as inserted, are given `mouse-face'
properties of `highlight'.
At the end, this runs the normal hook `completion-setup-hook'.
It can find the completion buffer in `standard-output'.  
The optional second arg COMMON-SUBSTRING is a string. 
It is used to put faces, `completions-first-difference` and
`completions-common-part' on the completion bufffer. The
`completions-common-part' face is put on the common substring
specified by COMMON-SUBSTRING. If COMMON-SUBSTRING is nil,
the faces are not put. 
Internally, COMMON-SUBSTRING is bound to `completion-common-substring' 
during running `completion-setup-hook'. */)
     (completions, common_substring)
     Lisp_Object completions;
     Lisp_Object common_substring;
{

    {
      int count1 = SPECPDL_INDEX ();

      specbind (intern ("completion-common-substring"), common_substring);
      call1 (Vrun_hooks, intern ("completion-setup-hook"));
      
      unbind_to (count1, Qnil);
    }

  UNGCPRO;

  return Qnil;
}

DEFUN ("minibuffer-completion-help", Fminibuffer_completion_help, Sminibuffer_completion_help,
       0, 0, "",
       doc: /* Display a list of possible completions of the current minibuffer contents.  */)

      bitch_at_user ();
      temp_echo_area_glyphs (build_string (" [No completions]"));
    }
  else
    internal_with_output_to_temp_buffer ("*Completions*",
					 Fdisplay_completion_list,
					 Fsort (completions, Qstring_lessp));
  return Qnil;
}

DEFUN ("self-insert-and-exit", Fself_insert_and_exit, Sself_insert_and_exit, 0, 0, "",

83389:732c5740ca8f

alternative, the second serves as annotation.
`standard-output' must be a buffer.
The actual completion alternatives, as inserted, are given `mouse-face'
properties of `highlight'.
At the end, this runs the normal hook `completion-setup-hook'.
It can find the completion buffer in `standard-output'.
The optional second arg COMMON-SUBSTRING is a string.
It is used to put faces, `completions-first-difference` and
`completions-common-part' on the completion buffer. The
`completions-common-part' face is put on the common substring
specified by COMMON-SUBSTRING. If COMMON-SUBSTRING is nil,
the faces are not put.
Internally, COMMON-SUBSTRING is bound to `completion-common-substring'
during running `completion-setup-hook'. */)
     (completions, common_substring)
     Lisp_Object completions;
     Lisp_Object common_substring;
{

    {
      int count1 = SPECPDL_INDEX ();

      specbind (intern ("completion-common-substring"), common_substring);
      call1 (Vrun_hooks, intern ("completion-setup-hook"));

      unbind_to (count1, Qnil);
    }

  UNGCPRO;

  return Qnil;
}


static Lisp_Object
display_completion_list_1 (list)
     Lisp_Object list;
{
  return Fdisplay_completion_list (list, Qnil);
}

DEFUN ("minibuffer-completion-help", Fminibuffer_completion_help, Sminibuffer_completion_help,
       0, 0, "",
       doc: /* Display a list of possible completions of the current minibuffer contents.  */)

      bitch_at_user ();
      temp_echo_area_glyphs (build_string (" [No completions]"));
    }
  else
    internal_with_output_to_temp_buffer ("*Completions*",
					 display_completion_list_1,
					 Fsort (completions, Qstring_lessp));
  return Qnil;
}

DEFUN ("self-insert-and-exit", Fself_insert_and_exit, Sself_insert_and_exit, 0, 0, "",