changeset 33908:d42bd79a1778

(lucid_event_type_list_p): Handle `help-echo', `vertical-line', `mode-line' and `header-line' events.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 27 Nov 2000 14:42:42 +0000
parents 2888efeec7dd
children 9a9c1a4450f7
files src/keyboard.c
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/keyboard.c	Mon Nov 27 13:36:57 2000 +0000
+++ b/src/keyboard.c	Mon Nov 27 14:42:42 2000 +0000
@@ -4704,7 +4704,7 @@
 
 		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 @@
   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;