(show_help_echo): Accept additional parameter

ok_to_overwrite_keystroke_echo.
(read_char): Call show_help_echo with a zero
ok_to_overwrite_keystroke_echo argument.

diff --git a/src/keyboard.c b/src/keyboard.c
index 2674485f33c343f87e9408b8757e261af25d4813..6763f28dd8447d2cda77103c21c181fa9c558f67 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1897,8 +1897,9 @@ make_ctrl_char (c)
 
 /* Display a help message in the echo area.  */
 void
-show_help_echo (msg)
+show_help_echo (msg, ok_to_overwrite_keystroke_echo)
      Lisp_Object msg;
+     int ok_to_overwrite_keystroke_echo;
 {
   int count = specpdl_ptr - specpdl;
 
@@ -1911,7 +1912,7 @@ show_help_echo (msg)
   else if (/* Don't overwrite minibuffer contents.  */
           !MINI_WINDOW_P (XWINDOW (selected_window))
           /* Don't overwrite a keystroke echo.  */
-          && NILP (echo_message_buffer)
+          && (NILP (echo_message_buffer) || ok_to_overwrite_keystroke_echo)
           /* Don't overwrite a prompt.  */
           && !cursor_in_echo_area)
     {
@@ -2668,7 +2669,7 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
   /* Display help if not echoing.  */
   if (CONSP (c) && EQ (XCAR (c), Qhelp_echo))
     {
-      show_help_echo (XCDR (XCDR (c)));
+      show_help_echo (XCDR (XCDR (c)), 0);
       goto retry;
     }