mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 14:41:11 -08:00
Code Issues Projects Releases Wiki Activity

(temp_echo_area_glyphs): Remove unused function.

Browse source
This commit is contained in:
Stefan Monnier 2008-04-09 18:02:08 +00:00
parent ed7dabb336
commit c025fb0a25
2 changed files with 4 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ChangeLog
View file

@ -1,3 +1,7 @@
2008-04-09 Stefan Monnier <monnier@iro.umontreal.ca>
* minibuf.c (temp_echo_area_glyphs): Remove unused function.
2008-04-09 Juanma Barranquero <lekktu@gmail.com>
* editfns.c (Ffield_string_no_properties): Fix typo in docstring.

42
src/minibuf.c
View file

@ -2023,48 +2023,6 @@ If no minibuffer is active, return nil. */)
return Fcopy_sequence (minibuf_prompt);
}
/* Temporarily display STRING at the end of the current
minibuffer contents. This is used to display things like
"[No Match]" when the user requests a completion for a prefix
that has no possible completions, and other quick, unobtrusive
messages. */
extern Lisp_Object Vminibuffer_message_timeout;
void
temp_echo_area_glyphs (string)
Lisp_Object string;
{
int osize = ZV;
int osize_byte = ZV_BYTE;
int opoint = PT;
int opoint_byte = PT_BYTE;
Lisp_Object oinhibit;
oinhibit = Vinhibit_quit;
/* Clear out any old echo-area message to make way for our new thing. */
message (0);
SET_PT_BOTH (osize, osize_byte);
insert_from_string (string, 0, 0, SCHARS (string), SBYTES (string), 0);
SET_PT_BOTH (opoint, opoint_byte);
Vinhibit_quit = Qt;
if (NUMBERP (Vminibuffer_message_timeout))
sit_for (Vminibuffer_message_timeout, 0, 2);
else
sit_for (Qt, 0, 2);
del_range_both (osize, osize_byte, ZV, ZV_BYTE, 1);
SET_PT_BOTH (opoint, opoint_byte);
if (!NILP (Vquit_flag))
{
Vquit_flag = Qnil;
Vunread_command_events = Fcons (make_number (quit_char), Qnil);
}
Vinhibit_quit = oinhibit;
}
void
init_minibuf_once ()