(Fmsdos_set_mouse_buttons): Signal an error if the

argument is outside the range [2..3].
This commit is contained in:
Eli Zaretskii 2000-12-14 15:12:58 +00:00
parent eccd9c9b8c
commit e7522695a5

View file

@ -195,8 +195,15 @@ them. This happens with wheeled mice on Windows 9X, for example.")
(nbuttons)
Lisp_Object nbuttons;
{
int n;
CHECK_NUMBER (nbuttons, 0);
mouse_setup_buttons (XINT (nbuttons));
n = XINT (nbuttons);
if (n < 2 || n > 3)
Fsignal (Qargs_out_of_range,
Fcons (build_string ("only 2 or 3 mouse buttons are supported"),
Fcons (nbuttons, Qnil)));
mouse_setup_buttons (n);
return Qnil;
}