comparison src/keyboard.c @ 3993:992a1abeb6cd

* keyboard.c (Vdouble_click_time): Renamed from double_click_time, and made a Lisp_Object instead of an int. (make_lispy_event): If Vdouble_click_time is t, impose no time limit on double-clicks. (syms_of_keyboard): DEFVAR_LISP (not DEFVAR_INT) Vdouble_click_time (not double_click_time), and adjust doc string to say that `nil' means no double clicks, and `t' means no time limit.

3992:cb593618786e

static int button_up_button;
static int button_up_x;
static int button_up_y;
static unsigned long button_up_time;

/* The minimum time between clicks to make a double-click. */

int double_click_time;

/* The number of clicks in this multiple-click. */

int double_click_count;

		  {
		    if (button == button_up_button
			&& XINT (event->x) == button_up_x
			&& XINT (event->y) == button_up_y
			&& button_up_time != 0
			&& ((int)(event->timestamp - button_up_time)
			    < double_click_time))
		      {
			double_click_count++;
			event->modifiers |= ((double_click_count > 2)
					     ? triple_modifier
					     : double_modifier);

The reason for polling is to make C-g work to stop a running program.\n\
Polling is needed only when using X windows and SIGIO does not work.\n\
Polling is automatically disabled in all other cases.");
  polling_period = 2;
  
  DEFVAR_INT ("double-click-time", &double_click_time,
    "*Maximum time between mouse clicks to make a double-click.\n\
Measured in milliseconds.  Zero means disable double-click recognition;\n\
a large number means double-clicks have no time limit and are detected\n\
by position only.");
  double_click_time = 500;

  DEFVAR_INT ("num-input-keys", &num_input_keys,
    "*Number of complete keys read from the keyboard so far.");

3993:992a1abeb6cd

static int button_up_button;
static int button_up_x;
static int button_up_y;
static unsigned long button_up_time;

/* The maximum time between clicks to make a double-click,
   or Qnil to disable double-click detection,
   or Qt for no time limit.  */
Lisp_Object Vdouble_click_time;

/* The number of clicks in this multiple-click. */

int double_click_count;

		  {
		    if (button == button_up_button
			&& XINT (event->x) == button_up_x
			&& XINT (event->y) == button_up_y
			&& button_up_time != 0
			&& (EQ (Vdouble_click_time, Qt)
			    || (INTEGERP (Vdouble_click_time)
				&& ((int)(event->timestamp - button_up_time)
				    < XINT (Vdouble_click_time)))))
		      {
			double_click_count++;
			event->modifiers |= ((double_click_count > 2)
					     ? triple_modifier
					     : double_modifier);

The reason for polling is to make C-g work to stop a running program.\n\
Polling is needed only when using X windows and SIGIO does not work.\n\
Polling is automatically disabled in all other cases.");
  polling_period = 2;
  
  DEFVAR_LISP ("double-click-time", &Vdouble_click_time,
    "*Maximum time between mouse clicks to make a double-click.\n\
Measured in milliseconds.  nil means disable double-click recognition;\n\
t means double-clicks have no time limit and are detected\n\
by position only.");
  double_click_time = 500;

  DEFVAR_INT ("num-input-keys", &num_input_keys,
    "*Number of complete keys read from the keyboard so far.");