From 902ae620321aa2fadae916091a441e603a1cb8a4 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 27 Nov 2000 14:43:30 +0000 Subject: [PATCH] (lucid_event_type_list_p): Handle `help-echo', `vertical-line', `mode-line' and `header-line' events. --- src/ChangeLog | 5 ++++- src/keyboard.c | 8 +++++++- 2 files changed, 11 insertions(+), 2 deletions(-) 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 - * 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; -- 2.39.2