procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Qleft_margin, Qright_margin): Declare.

Browse source 
(make_lispy_event): Deal with mouse events in margins.
This commit is contained in:
Gerd Moellmann 2002-04-12 09:35:34 +00:00
parent b436feb657
commit 7d60ad8af0
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/keyboard.c
View file

@ -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;