From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 27 Nov 2000 14:43:30 +0000 (+0000)
Subject: (lucid_event_type_list_p): Handle `help-echo',
X-Git-Tag: emacs-pretest-21.0.92~52
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=902ae620321aa2fadae916091a441e603a1cb8a4;p=emacs.git

(lucid_event_type_list_p): Handle `help-echo',
`vertical-line', `mode-line' and `header-line' events.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 909cce3e2a8..8778dd4dc5a 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,6 +1,9 @@
 2000-11-27  Gerd Moellmann  <gerd@gnu.org>
 
-	* xdisp.c (try_window_id): Avoid starting to display in the moddle
+	* keyboard.c (lucid_event_type_list_p): Handle `help-echo',
+	`vertical-line', `mode-line' and `header-line' events.
+
+	* xdisp.c (try_window_id): Avoid starting to display in the middle
 	 of a character, a TAB for instance.  This is easier than to set
 	 up the iterator exactly, and it's not a frequent case, so the
 	 additional effort wouldn't really pay off.
diff --git a/src/keyboard.c b/src/keyboard.c
index beaf5507ef5..c6d48d65fe1 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -4704,7 +4704,7 @@ make_lispy_event (event)
 
 		if (part == 1 || part == 3)
 		  {
-		    /* Mode line or top line.  Look for a string under
+		    /* Mode line or header line.  Look for a string under
 		       the mouse that may have a `local-map' property.  */
 		    Lisp_Object string;
 		    int charpos;
@@ -5824,6 +5824,12 @@ lucid_event_type_list_p (object)
   if (! CONSP (object))
     return 0;
 
+  if (EQ (XCAR (object), Qhelp_echo)
+      || EQ (XCAR (object), Qvertical_line)
+      || EQ (XCAR (object), Qmode_line)
+      || EQ (XCAR (object), Qheader_line))
+    return 0;
+
   for (tail = object; CONSP (tail); tail = XCDR (tail))
     {
       Lisp_Object elt;