(Qleft_margin, Qright_margin): Declare.

(make_lispy_event): Deal with mouse events in margins.

diff --git a/src/keyboard.c b/src/keyboard.c
index c5956e5e7b8291f67267a38f3fd1a31fb725633b..2d46a1d99a934851a062ebf02c1332ae035a9b6b 100644 (file)
--- 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;