# HG changeset patch # User Kenichi Handa # Date 1050026775 0 # Node ID 98fb19f9d8d3c6b127653963e6111b8191338491 # Parent 4eb84208a499569626ddb57e8b653dbb70e400a4 (temp_echo_area_glyphs): Change the arg to Lisp string. Callers changed. diff -r 4eb84208a499 -r 98fb19f9d8d3 src/minibuf.c --- a/src/minibuf.c Fri Apr 11 01:20:36 2003 +0000 +++ b/src/minibuf.c Fri Apr 11 02:06:15 2003 +0000 @@ -1719,7 +1719,7 @@ if (NILP (completion)) { bitch_at_user (); - temp_echo_area_glyphs (" [No match]"); + temp_echo_area_glyphs (build_string (" [No match]")); UNGCPRO; return 0; } @@ -1783,7 +1783,7 @@ else if (!NILP (Vcompletion_auto_help)) Fminibuffer_completion_help (); else - temp_echo_area_glyphs (" [Next char not unique]"); + temp_echo_area_glyphs (build_string (" [Next char not unique]")); return 6; } else if (completedp) @@ -1882,13 +1882,13 @@ case 1: if (PT != ZV) Fgoto_char (make_number (ZV)); - temp_echo_area_glyphs (" [Sole completion]"); + temp_echo_area_glyphs (build_string (" [Sole completion]")); break; case 3: if (PT != ZV) Fgoto_char (make_number (ZV)); - temp_echo_area_glyphs (" [Complete, but not unique]"); + temp_echo_area_glyphs (build_string (" [Complete, but not unique]")); break; } @@ -1949,7 +1949,7 @@ case 4: if (!NILP (Vminibuffer_completion_confirm)) { - temp_echo_area_glyphs (" [Confirm]"); + temp_echo_area_glyphs (build_string (" [Confirm]")); return Qnil; } else @@ -1986,7 +1986,7 @@ if (NILP (completion)) { bitch_at_user (); - temp_echo_area_glyphs (" [No match]"); + temp_echo_area_glyphs (build_string (" [No match]")); return Qnil; } if (EQ (completion, Qt)) @@ -2344,7 +2344,7 @@ if (NILP (completions)) { bitch_at_user (); - temp_echo_area_glyphs (" [No completions]"); + temp_echo_area_glyphs (build_string (" [No completions]")); } else internal_with_output_to_temp_buffer ("*Completions*", @@ -2388,15 +2388,15 @@ } -/* Temporarily display the string M at the end of the current +/* 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. */ void -temp_echo_area_glyphs (m) - const char *m; +temp_echo_area_glyphs (string) + Lisp_Object string; { int osize = ZV; int osize_byte = ZV_BYTE; @@ -2409,7 +2409,7 @@ message (0); SET_PT_BOTH (osize, osize_byte); - insert_string (m); + insert_from_string (string, 0, 0, SCHARS (string), SBYTES (string), 0); SET_PT_BOTH (opoint, opoint_byte); Vinhibit_quit = Qt; Fsit_for (make_number (2), Qnil, Qnil); @@ -2432,7 +2432,7 @@ Lisp_Object string; { CHECK_STRING (string); - temp_echo_area_glyphs (SDATA (string)); + temp_echo_area_glyphs (string); return Qnil; }