Mercurial > emacs
changeset 44534:733b2505ca59
(Qleft_margin, Qright_margin): Declare.
(make_lispy_event): Deal with mouse events in margins.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 12 Apr 2002 09:35:34 +0000 |
| parents | cf3b9d517c45 |
| children | ee637a721e86 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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;