Mercurial > hg > xemacs-beta
comparison src/event-stream.c @ 516:8a4db099aa97
[xemacs-hg @ 2001-05-07 14:55:13 by yoshiki]
zhaoway's patch "compile --without-scrollbars",
<871yqlimt4.fsf@debian.org>
author | yoshiki |
---|---|
date | Mon, 07 May 2001 14:55:14 +0000 |
parents | 7039e6323819 |
children | c69610198c35 |
comparison
equal
deleted
inserted
replaced
515:768853052061 | 516:8a4db099aa97 |
---|---|
3760 } | 3760 } |
3761 | 3761 |
3762 static int | 3762 static int |
3763 is_scrollbar_event (Lisp_Object event) | 3763 is_scrollbar_event (Lisp_Object event) |
3764 { | 3764 { |
3765 #ifdef HAVE_SCROLLBARS | |
3765 Lisp_Object fun; | 3766 Lisp_Object fun; |
3766 | 3767 |
3767 if (XEVENT (event)->event_type != misc_user_event) | 3768 if (XEVENT (event)->event_type != misc_user_event) |
3768 return 0; | 3769 return 0; |
3769 fun = XEVENT (event)->event.misc.function; | 3770 fun = XEVENT (event)->event.misc.function; |
3780 EQ (fun, Qscrollbar_page_left) || | 3781 EQ (fun, Qscrollbar_page_left) || |
3781 EQ (fun, Qscrollbar_page_right) || | 3782 EQ (fun, Qscrollbar_page_right) || |
3782 EQ (fun, Qscrollbar_to_left) || | 3783 EQ (fun, Qscrollbar_to_left) || |
3783 EQ (fun, Qscrollbar_to_right) || | 3784 EQ (fun, Qscrollbar_to_right) || |
3784 EQ (fun, Qscrollbar_horizontal_drag)); | 3785 EQ (fun, Qscrollbar_horizontal_drag)); |
3786 #else | |
3787 return 0; | |
3788 #endif /* HAVE_SCROLLBARS */ | |
3785 } | 3789 } |
3786 | 3790 |
3787 static void | 3791 static void |
3788 execute_command_event (struct command_builder *command_builder, | 3792 execute_command_event (struct command_builder *command_builder, |
3789 Lisp_Object event) | 3793 Lisp_Object event) |