Mercurial > emacs

comparison src/xfns.c @ 1096:d79192bacdce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fx_track_pointer): Pass new args to read_char. (Fx_select_region, Fx_horizontal_line): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Fri, 11 Sep 1992 23:31:02 +0000
parents 133bad38bde1
children 059624bf9bf0
comparison
equal deleted inserted replaced
1095:6578f07e9eb8 1096:d79192bacdce
3509 point_x, point_y); 3509 point_x, point_y);
3510 } 3510 }
3511 3511
3512 while (1) 3512 while (1)
3513 { 3513 {
3514 obj = read_char (-1); 3514 obj = read_char (-1, 0, 0, Qnil, 0);
3515 if (XTYPE (obj) != Lisp_Cons) 3515 if (XTYPE (obj) != Lisp_Cons)
3516 break; 3516 break;
3517 3517
3518 if (mouse_below_point) 3518 if (mouse_below_point)
3519 { 3519 {
3641 XFlushQueue (); 3641 XFlushQueue ();
3642 UNBLOCK_INPUT; 3642 UNBLOCK_INPUT;
3643 3643
3644 do 3644 do
3645 { 3645 {
3646 obj = read_char (-1); 3646 obj = read_char (-1, 0, 0, Qnil, 0);
3647 if ((XTYPE (obj) != Lisp_Cons) 3647 if ((XTYPE (obj) != Lisp_Cons)
3648 || (! EQ (Fcar (Fcdr (Fcdr (obj))), 3648 || (! EQ (Fcar (Fcdr (Fcdr (obj))),
3649 Qvertical_scroll_bar)) 3649 Qvertical_scroll_bar))
3650 || x_mouse_grabbed) 3650 || x_mouse_grabbed)
3651 { 3651 {
3857 } 3857 }
3858 3858
3859 XFlush (x_current_display); 3859 XFlush (x_current_display);
3860 UNBLOCK_INPUT; 3860 UNBLOCK_INPUT;
3861 3861
3862 obj = read_char (-1); 3862 obj = read_char (-1, 0, 0, Qnil, 0);
3863 BLOCK_INPUT; 3863 BLOCK_INPUT;
3864 } 3864 }
3865 while (XTYPE (obj) == Lisp_Cons /* Mouse event */ 3865 while (XTYPE (obj) == Lisp_Cons /* Mouse event */
3866 && EQ (Fcar (Fcdr (Fcdr (obj))), Qnil) /* Not scrollbar */ 3866 && EQ (Fcar (Fcdr (Fcdr (obj))), Qnil) /* Not scrollbar */
3867 && EQ (Vmouse_depressed, Qnil) /* Only motion events */ 3867 && EQ (Vmouse_depressed, Qnil) /* Only motion events */