aboutsummaryrefslogtreecommitdiffstats
path: root/src/keyboard.c
diff options
context:
space:
mode:
authorJim Blandy1992-06-30 13:54:21 +0000
committerJim Blandy1992-06-30 13:54:21 +0000
commite5d77022e8429ca757746ed5d7cf9e2420703e8e (patch)
tree2e273d216c8f9e34d5e29547f8e7e7c6c5d32049 /src/keyboard.c
parent53b0a6f88893036a42db2abcfbc257b68906956e (diff)
downloademacs-e5d77022e8429ca757746ed5d7cf9e2420703e8e.tar.gz
emacs-e5d77022e8429ca757746ed5d7cf9e2420703e8e.zip
*** empty log message ***
Diffstat (limited to 'src/keyboard.c')
-rw-r--r--src/keyboard.c19
1 files changed, 11 insertions, 8 deletions
diff --git a/src/keyboard.c b/src/keyboard.c
index 97b98c98b98..cb2e56adf36 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -310,7 +310,7 @@ Lisp_Object Qevent_unmodified;
310 310
311/* Symbols to use for non-text mouse positions. */ 311/* Symbols to use for non-text mouse positions. */
312Lisp_Object Qmode_line; 312Lisp_Object Qmode_line;
313Lisp_Object Qvertical_split; 313Lisp_Object Qvertical_line;
314 314
315 315
316/* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt 316/* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt
@@ -1625,7 +1625,8 @@ kbd_buffer_get_event ()
1625 else if (do_mouse_tracking && mouse_moved) 1625 else if (do_mouse_tracking && mouse_moved)
1626 { 1626 {
1627 SCREEN_PTR screen; 1627 SCREEN_PTR screen;
1628 Lisp_Object x, y, time; 1628 Lisp_Object x, y;
1629 unsigned long time;
1629 1630
1630 (*mouse_position_hook) (&screen, &x, &y, &time); 1631 (*mouse_position_hook) (&screen, &x, &y, &time);
1631 XSET (Vlast_event_screen, Lisp_Screen, screen); 1632 XSET (Vlast_event_screen, Lisp_Screen, screen);
@@ -1779,7 +1780,7 @@ make_lispy_event (event)
1779 if (part == 1) 1780 if (part == 1)
1780 posn = Qmode_line; 1781 posn = Qmode_line;
1781 else if (part == 2) 1782 else if (part == 2)
1782 posn = Qvertical_split; 1783 posn = Qvertical_line;
1783 else 1784 else
1784 XSET (posn, Lisp_Int, 1785 XSET (posn, Lisp_Int,
1785 buffer_posn_from_coords (XWINDOW (window), 1786 buffer_posn_from_coords (XWINDOW (window),
@@ -1831,7 +1832,7 @@ static Lisp_Object
1831make_lispy_movement (screen, x, y, time) 1832make_lispy_movement (screen, x, y, time)
1832 SCREEN_PTR screen; 1833 SCREEN_PTR screen;
1833 Lisp_Object x, y; 1834 Lisp_Object x, y;
1834 Lisp_Object time; 1835 unsigned long time;
1835{ 1836{
1836 Lisp_Object window; 1837 Lisp_Object window;
1837 int ix, iy; 1838 int ix, iy;
@@ -1852,7 +1853,7 @@ make_lispy_movement (screen, x, y, time)
1852 if (part == 1) 1853 if (part == 1)
1853 posn = Qmode_line; 1854 posn = Qmode_line;
1854 else if (part == 2) 1855 else if (part == 2)
1855 posn = Qvertical_split; 1856 posn = Qvertical_line;
1856 else 1857 else
1857 XSET (posn, Lisp_Int, buffer_posn_from_coords (XWINDOW (window), 1858 XSET (posn, Lisp_Int, buffer_posn_from_coords (XWINDOW (window),
1858 ix, iy)); 1859 ix, iy));
@@ -1864,7 +1865,7 @@ make_lispy_movement (screen, x, y, time)
1864 Fcons (window, 1865 Fcons (window,
1865 Fcons (posn, 1866 Fcons (posn,
1866 Fcons (Fcons (x, y), 1867 Fcons (Fcons (x, y),
1867 Fcons (time, Qnil))))); 1868 Fcons (make_number (time), Qnil)))));
1868} 1869}
1869 1870
1870 1871
@@ -2638,6 +2639,7 @@ read_key_sequence (keybuf, bufsize, prompt)
2638 2639
2639 Vquit_flag = Qnil; 2640 Vquit_flag = Qnil;
2640 2641
2642#ifdef MULTI_SCREEN
2641 /* What buffer was this event typed/moused at? */ 2643 /* What buffer was this event typed/moused at? */
2642 if (XTYPE (key) == Lisp_Int || XTYPE (key) == Lisp_Symbol) 2644 if (XTYPE (key) == Lisp_Int || XTYPE (key) == Lisp_Symbol)
2643 buf = (XBUFFER 2645 buf = (XBUFFER
@@ -2674,6 +2676,7 @@ read_key_sequence (keybuf, bufsize, prompt)
2674 2676
2675 goto restart; 2677 goto restart;
2676 } 2678 }
2679#endif
2677 } 2680 }
2678 2681
2679 first_binding = (follow_key (key, 2682 first_binding = (follow_key (key,
@@ -3512,8 +3515,8 @@ syms_of_keyboard ()
3512 3515
3513 Qmode_line = intern ("mode-line"); 3516 Qmode_line = intern ("mode-line");
3514 staticpro (&Qmode_line); 3517 staticpro (&Qmode_line);
3515 Qvertical_split = intern ("vertical-split"); 3518 Qvertical_line = intern ("vertical-line");
3516 staticpro (&Qvertical_split); 3519 staticpro (&Qvertical_line);
3517 3520
3518 Qevent_kind = intern ("event-type"); 3521 Qevent_kind = intern ("event-type");
3519 staticpro (&Qevent_kind); 3522 staticpro (&Qevent_kind);