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