diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-09 18:02:08 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-09 18:02:08 +0000 |
commit | 5a824f4eb37ba96c37465e2b0d48f1083ee90abf (patch) | |
tree | 348dbf8fc0f664193ae45aa2b4084fe22a96d611 /src/minibuf.c | |
parent | f6d06c0199c4a4fc53941d0f49453ff1817bc3c6 (diff) | |
download | emacs-5a824f4eb37ba96c37465e2b0d48f1083ee90abf.tar.gz |
(temp_echo_area_glyphs): Remove unused function.
Diffstat (limited to 'src/minibuf.c')
-rw-r--r-- | src/minibuf.c | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/src/minibuf.c b/src/minibuf.c index ee6089a244c..8cdea645d34 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -2024,48 +2024,6 @@ If no minibuffer is active, return nil. */) } -/* 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 () { |