# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1018604134 0
# Node ID 733b2505ca59cae7302ce0edea35b55635f7ab26
# Parent  cf3b9d517c45887c4f8c56a16b3af42c271aa29b
(Qleft_margin, Qright_margin): Declare.
(make_lispy_event): Deal with mouse events in margins.

diff -r cf3b9d517c45 -r 733b2505ca59 src/keyboard.c
--- a/src/keyboard.c	Fri Apr 12 09:33:52 2002 +0000
+++ b/src/keyboard.c	Fri Apr 12 09:35:34 2002 +0000
@@ -589,6 +589,7 @@
 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 @@
 		  }
 		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;