From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 25 Sep 2000 14:27:02 +0000 (+0000)
Subject: (show_help_echo): Set help_echo_showing_p.
X-Git-Tag: emacs-pretest-21.0.90~1395
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5295a500104f1283c5aa5d37d211ccccb06c3c6e;p=emacs.git

(show_help_echo): Set help_echo_showing_p.
(read_char): If help-echo is showing, preserve the echo area
when redisplaying.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index d204e904a17..8199667bf07 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1986,8 +1986,10 @@ show_help_echo (help, window, object, pos, ok_to_overwrite_keystroke_echo)
 	      unbind_to (count, Qnil);
 	    }
 	  else
-	    message (0);
+	      message (0);
 	}
+      
+      help_echo_showing_p = STRINGP (help);
     }
 }
 
@@ -2171,7 +2173,10 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
       /* Redisplay if no pending input.  */
       while (!input_pending)
 	{
-	  redisplay ();
+	  if (help_echo_showing_p && !EQ (selected_window, minibuf_window))
+	    redisplay_preserve_echo_area ();
+	  else
+	    redisplay ();
 
 	  if (!input_pending)
 	    /* Normal case: no input arrived during redisplay.  */