Mercurial > emacs
changeset 93932:20eb97f6a066
(temp_echo_area_glyphs): Remove unused function.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 09 Apr 2008 18:02:08 +0000 |
parents | 96e67b885ec4 |
children | 7f73d8c73d92 |
files | src/ChangeLog src/minibuf.c |
diffstat | 2 files changed, 4 insertions(+), 42 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Wed Apr 09 16:55:51 2008 +0000 +++ b/src/ChangeLog Wed Apr 09 18:02:08 2008 +0000 @@ -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.
--- a/src/minibuf.c Wed Apr 09 16:55:51 2008 +0000 +++ b/src/minibuf.c Wed Apr 09 18:02:08 2008 +0000 @@ -2024,48 +2024,6 @@ } -/* 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 () {