From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 25 Sep 2000 14:26:20 +0000 (+0000)
Subject: (help_echo_showing_p): New variable.
X-Git-Tag: emacs-pretest-21.0.90~1396
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=21fdfb65736b6cbf43847cfb41ecf8f0363d5ac5;p=emacs.git

(help_echo_showing_p): New variable.
(set_message): Reset it to 0.
(init_xdisp): Initialize help_echo_showing_p.
---

diff --git a/src/xdisp.c b/src/xdisp.c
index a82736ccd18..1c76ec8e797 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -508,6 +508,10 @@ static struct glyph scratch_glyphs[MAX_SCRATCH_GLYPHS];
 
 static int last_max_ascent, last_height;
 
+/* Non-zero if there's a help-echo in the echo area.  */
+
+int help_echo_showing_p;
+
 /* The maximum distance to look ahead for text properties.  Values
    that are too small let us call compute_char_face and similar 
    functions too often which is expensive.  Values that are too large
@@ -6153,6 +6157,7 @@ set_message (s, string, nbytes, multibyte_p)
   with_echo_area_buffer (0, -1, set_message_1,
 			 (EMACS_INT) s, string, nbytes, multibyte_p);
   message_buf_print = 0;
+  help_echo_showing_p = 0;
 }
 
 
@@ -13701,6 +13706,8 @@ init_xdisp ()
     frame_title_ptr = NULL;
   }
 #endif /* HAVE_WINDOW_SYSTEM */
+  
+  help_echo_showing_p = 0;
 }