comparison src/keyboard.c @ 74748:8a37dd687f38

(kbd_buffer_store_event_hold): Undo 2006-12-04 change. (make_lispy_event): Don't generate Qsignal prefix for code 0. Abort if signal code is unknown. (store_user_signal_events): Don't make Qsignal prefix (code 0). (Qsignal): Move declaration back to process.c. (syms_of_keyboard): Don't intern or staticpro it here.

74747:53804f26b67e

  /* If we're inside while-no-input, and this event qualifies
     as input, set quit-flag to cause an interrupt.  */
  if (!NILP (Vthrow_on_input)
      && event->kind != FOCUS_IN_EVENT
      && event->kind != HELP_EVENT
      && event->kind != DEICONIFY_EVENT
      && !(event->kind == USER_SIGNAL_EVENT && event->code == 0))
    {
      Vquit_flag = Vthrow_on_input;
      /* If we're inside a function that wants immediate quits,
	 do it now.  */
      if (immediate_quit && NILP (Vinhibit_quit))

Lisp_Object *scroll_bar_parts[] = {
  &Qabove_handle, &Qhandle, &Qbelow_handle,
  &Qup, &Qdown, &Qtop, &Qbottom, &Qend_scroll, &Qratio
};

/* User signal events.  */
Lisp_Object Qsignal;

/* A vector, indexed by button number, giving the down-going location
   of currently depressed buttons, both scroll bar and non-scroll bar.

   The elements have the form
     (BUTTON-NUMBER MODIFIER-MASK . REST)

	return apply_modifiers (event->modifiers, event->arg);
      return event->arg;

    case USER_SIGNAL_EVENT:
      /* A user signal.  */
      if (event->code == 0)
	return Qsignal;
      else
	{
	  char *name = find_user_signal_name (event->code);

	  if (name)
	    return intern (name);
	  else
	    return make_number (event->code);
	}

    case SAVE_SESSION_EVENT:
      return Qsave_session;

#ifdef MAC_OS

	nstored += p->npending;

	mask = sigblock (sigmask (p->sig));
	do
	  {
	    buf.code = 0;
	    kbd_buffer_store_event (&buf);
	    buf.code = p->sig;
	    kbd_buffer_store_event (&buf);
	    p->npending--;
	  }
	while (p->npending > 0);

#ifdef MAC_OS
  Qmac_apple_event = intern ("mac-apple-event");
  staticpro (&Qmac_apple_event);
#endif

  Qsignal = intern ("signal");
  staticpro (&Qsignal);

  Qmenu_enable = intern ("menu-enable");
  staticpro (&Qmenu_enable);
  Qmenu_alias = intern ("menu-alias");
  staticpro (&Qmenu_alias);
  QCenable = intern (":enable");

74748:8a37dd687f38

  /* If we're inside while-no-input, and this event qualifies
     as input, set quit-flag to cause an interrupt.  */
  if (!NILP (Vthrow_on_input)
      && event->kind != FOCUS_IN_EVENT
      && event->kind != HELP_EVENT
      && event->kind != DEICONIFY_EVENT)
    {
      Vquit_flag = Vthrow_on_input;
      /* If we're inside a function that wants immediate quits,
	 do it now.  */
      if (immediate_quit && NILP (Vinhibit_quit))

Lisp_Object *scroll_bar_parts[] = {
  &Qabove_handle, &Qhandle, &Qbelow_handle,
  &Qup, &Qdown, &Qtop, &Qbottom, &Qend_scroll, &Qratio
};

/* A vector, indexed by button number, giving the down-going location
   of currently depressed buttons, both scroll bar and non-scroll bar.

   The elements have the form
     (BUTTON-NUMBER MODIFIER-MASK . REST)

	return apply_modifiers (event->modifiers, event->arg);
      return event->arg;

    case USER_SIGNAL_EVENT:
      /* A user signal.  */
      {
	char *name = find_user_signal_name (event->code);
	if (!name)
	  abort ();
	return intern (name);
      }

    case SAVE_SESSION_EVENT:
      return Qsave_session;

#ifdef MAC_OS

	nstored += p->npending;

	mask = sigblock (sigmask (p->sig));
	do
	  {
	    buf.code = p->sig;
	    kbd_buffer_store_event (&buf);
	    p->npending--;
	  }
	while (p->npending > 0);

#ifdef MAC_OS
  Qmac_apple_event = intern ("mac-apple-event");
  staticpro (&Qmac_apple_event);
#endif

  Qmenu_enable = intern ("menu-enable");
  staticpro (&Qmenu_enable);
  Qmenu_alias = intern ("menu-alias");
  staticpro (&Qmenu_alias);
  QCenable = intern (":enable");