Mercurial > emacs
comparison src/keyboard.c @ 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 | 403a35115d4a |
children | b79166cba466 |
comparison
equal
deleted
inserted
replaced
44533:cf3b9d517c45 | 44534:733b2505ca59 |
---|---|
587 /* Symbols to use for parts of windows. */ | 587 /* Symbols to use for parts of windows. */ |
588 Lisp_Object Qmode_line; | 588 Lisp_Object Qmode_line; |
589 Lisp_Object Qvertical_line; | 589 Lisp_Object Qvertical_line; |
590 Lisp_Object Qvertical_scroll_bar; | 590 Lisp_Object Qvertical_scroll_bar; |
591 Lisp_Object Qmenu_bar; | 591 Lisp_Object Qmenu_bar; |
592 extern Lisp_Object Qleft_margin, Qright_margin; | |
592 | 593 |
593 Lisp_Object recursive_edit_unwind (), command_loop (); | 594 Lisp_Object recursive_edit_unwind (), command_loop (); |
594 Lisp_Object Fthis_command_keys (); | 595 Lisp_Object Fthis_command_keys (); |
595 Lisp_Object Qextended_command_history; | 596 Lisp_Object Qextended_command_history; |
596 EMACS_TIME timer_check (); | 597 EMACS_TIME timer_check (); |
4924 if (STRINGP (string)) | 4925 if (STRINGP (string)) |
4925 string_info = Fcons (string, make_number (charpos)); | 4926 string_info = Fcons (string, make_number (charpos)); |
4926 } | 4927 } |
4927 else if (part == 2) | 4928 else if (part == 2) |
4928 posn = Qvertical_line; | 4929 posn = Qvertical_line; |
4930 else if (part == 6 || part == 7) | |
4931 { | |
4932 int charpos; | |
4933 Lisp_Object object = marginal_area_string (w, wx, wy, part, | |
4934 &charpos); | |
4935 posn = (part == 6) ? Qleft_margin : Qright_margin; | |
4936 if (STRINGP (object)) | |
4937 string_info = Fcons (object, make_number (charpos)); | |
4938 } | |
4929 else | 4939 else |
4930 { | 4940 { |
4931 Lisp_Object object; | 4941 Lisp_Object object; |
4932 struct display_pos p; | 4942 struct display_pos p; |
4933 buffer_posn_from_coords (w, &wx, &wy, &object, &p); | 4943 buffer_posn_from_coords (w, &wx, &wy, &object, &p); |