diff options
| author | Jim Blandy | 1992-06-30 13:54:21 +0000 |
|---|---|---|
| committer | Jim Blandy | 1992-06-30 13:54:21 +0000 |
| commit | e5d77022e8429ca757746ed5d7cf9e2420703e8e (patch) | |
| tree | 2e273d216c8f9e34d5e29547f8e7e7c6c5d32049 /src/keyboard.c | |
| parent | 53b0a6f88893036a42db2abcfbc257b68906956e (diff) | |
| download | emacs-e5d77022e8429ca757746ed5d7cf9e2420703e8e.tar.gz emacs-e5d77022e8429ca757746ed5d7cf9e2420703e8e.zip | |
*** empty log message ***
Diffstat (limited to 'src/keyboard.c')
| -rw-r--r-- | src/keyboard.c | 19 |
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. */ |
| 312 | Lisp_Object Qmode_line; | 312 | Lisp_Object Qmode_line; |
| 313 | Lisp_Object Qvertical_split; | 313 | Lisp_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 | |||
| 1831 | make_lispy_movement (screen, x, y, time) | 1832 | make_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); |