From 7d60ad8af0c9bdf88cad876323b170b7d6ea0580 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 12 Apr 2002 09:35:34 +0000 Subject: [PATCH] (Qleft_margin, Qright_margin): Declare. (make_lispy_event): Deal with mouse events in margins. --- src/keyboard.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/keyboard.c b/src/keyboard.c index c5956e5e7b8..2d46a1d99a9 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -589,6 +589,7 @@ Lisp_Object Qmode_line; Lisp_Object Qvertical_line; Lisp_Object Qvertical_scroll_bar; Lisp_Object Qmenu_bar; +extern Lisp_Object Qleft_margin, Qright_margin; Lisp_Object recursive_edit_unwind (), command_loop (); Lisp_Object Fthis_command_keys (); @@ -4926,6 +4927,15 @@ make_lispy_event (event) } else if (part == 2) posn = Qvertical_line; + else if (part == 6 || part == 7) + { + int charpos; + Lisp_Object object = marginal_area_string (w, wx, wy, part, + &charpos); + posn = (part == 6) ? Qleft_margin : Qright_margin; + if (STRINGP (object)) + string_info = Fcons (object, make_number (charpos)); + } else { Lisp_Object object; -- 2.39.5