comparison src/keyboard.c @ 985:952aa214a3d0

* keyboard.c (Fexecute_mouse_event): dyked-out function deleted. We're not going to use this mouse interface. (Vmouse_window, Vmouse_event, Vmouse_event_function, Vmouse_left_hook, Vmap_frame_hook, Vunmap_frame_hook, Vmouse_motion_handler): Variables deleted; they were to be used by Fexecute_mouse_event. (syms_of_keyboard): Same. (command_loop_1): Remove dyked-out code to support Fexecute_mouse_event. (read_char): Same. * keyboard.c (Vlast_event_frame): Don't define this window if MULTI_FRAME is not #defined. (syms_of_keyboard): Same. (kbd_buffer_store_event): Don't try to work with Vlast_event_frame if MULTI_FRAME is not #defined. (kbd_buffer_get_event): Same. * keyboard.c (Fdiscard_input): Removed dyked-out code from when unread_command_char's quiescent value was -1, not nil.

984:4fda1fce3579

/* The command being executed by the command loop.
   Commands may set this, and the value set will be copied into last_command
   instead of the actual command.  */
Lisp_Object this_command;

#ifndef HAVE_X11
/* Window of last mouse click.  */
extern Lisp_Object Vmouse_window;

/* List containing details of last mouse click.  */
extern Lisp_Object Vmouse_event;
#endif /* defined HAVE_X11 */

/* Hook to call on each mouse event after running its definition.  */
Lisp_Object Vmouse_event_function;

/* Hook to call when mouse leaves frame.  */
Lisp_Object Vmouse_left_hook;

/* Hook to call when a frame is mapped.  */
Lisp_Object Vmap_frame_hook;

/* Hook to call when a frame is unmapped.  */
Lisp_Object Vunmap_frame_hook;

/* Handler for non-grabbed (no keys depressed) mouse motion.  */
Lisp_Object Vmouse_motion_handler;

/* The frame in which the last input event occurred.
   command_loop_1 will select this frame before running the
   command bound to an event sequence, and read_key_sequence will
   toss the existing prefix if the user starts typing at a
   new frame.  */
Lisp_Object Vlast_event_frame;

/* The timestamp of the last input event we received from the X server.
   X Windows wants this for selection ownership.  */
unsigned long last_event_timestamp;

      /* Now we have read a key sequence of length I,
	 or else I is 0 and we found end of file.  */

      if (i == 0)		/* End of file -- happens only in */
	return Qnil;		/* a kbd macro, at the end.  */

#if 0
#ifdef HAVE_X_WINDOWS
      if (FRAME_X_P (selected_frame))
	{
	  if (i == -1)		/* Mouse event */
	    {
	      nonundocount = 0;
	      if (NILP (Vprefix_arg) && NILP (Vexecuting_macro) &&
		  !EQ (minibuf_window, selected_window))
		Fundo_boundary ();

	      if (defining_kbd_macro)
		{
		  /* Be nice if this worked...  */
		}
	      Fexecute_mouse_event (read_key_sequence_cmd);
	      no_redisplay = 0;
	      goto directly_done;
	    }

	  if (i == -2)		/* Lisp Symbol */
	    {
	      nonundocount = 0;
	      if (NILP (Vprefix_arg) && NILP (Vexecuting_macro) &&
		  !EQ (minibuf_window, selected_window))
		Fundo_boundary ();
 
	      goto directly_done;
	    }
	}
#endif /* HAVE_X_WINDOWS */
#endif

      last_command_char = keybuf[i - 1];

      cmd = read_key_sequence_cmd;
      if (!NILP (Vexecuting_macro))

  if (!NILP (unread_command_char))
    {
      c = unread_command_char;
      unread_command_char = Qnil;

#if 0       /* We're not handling mouse keys specially anymore. */
      if (!EQ (XTYPE (obj), Lisp_Int)) /* Mouse thing */
	{
	  num_input_chars++;
	  last_input_char = 0;
	  return obj;
	}
#endif

      if (this_command_key_count == 0)
	goto reread_first;
      else
	goto reread;
    }

  c = kbd_buffer_get_event ();

  if (NILP (c))
    abort ();			/* Don't think this can happen. */

#if 0 /* I think that all the different kinds of events should be
	 handled together now... */
  if (XTYPE (c) != Lisp_Int)
    {
      start_polling ();
      return c;
    }
  c = XINT (obj);
#endif

  /* Terminate Emacs in batch mode if at eof.  */
  if (noninteractive && c < 0)
    Fkill_emacs (make_number (1));

 non_reread:

      register int c = XFASTINT (event->code) & 0377;

      if (c == quit_char
	  || ((c == (0200 | quit_char)) && !meta_key))
	{
	  /* If this results in a quit_char being returned to Emacs as
	     input, set last-event-frame properly.  If this doesn't
	     get returned to Emacs as an event, the next event read
	     will set Vlast_event_frame again, so this is safe to do.  */
	  extern SIGTYPE interrupt_signal ();
	  Vlast_event_frame = FRAME_FOCUS_FRAME (event->frame);
	  last_event_timestamp = event->timestamp;
	  interrupt_signal ();
	  return;
	}

	kbd_fetch_ptr = kbd_buffer;
      /* Do the redirection specified by the focus_frame
	 member now, before we return this event.  */
      kbd_fetch_ptr->frame =
	XFRAME (FRAME_FOCUS_FRAME (kbd_fetch_ptr->frame));
      XSET (Vlast_event_frame, Lisp_Frame, kbd_fetch_ptr->frame);
      last_event_timestamp = kbd_fetch_ptr->timestamp;
      obj = make_lispy_event (kbd_fetch_ptr);
      kbd_fetch_ptr->kind = no_event;
      kbd_fetch_ptr++;
      if (XTYPE (obj) == Lisp_Int)

      FRAME_PTR frame;
      Lisp_Object x, y;
      unsigned long time;

      (*mouse_position_hook) (&frame, &x, &y, &time);
      XSET (Vlast_event_frame, Lisp_Frame, frame);

      obj = make_lispy_movement (frame, x, y, time);
    }
  else
    /* We were promised by the above while loop that there was

      return tem;
    }
  return Qnil;
}

#if 0
DEFUN ("execute-mouse-event", Fexecute_mouse_event, Sexecute_mouse_event,
  1, 1, 0,
  "Execute the definition of the mouse-click event EVENT.\n\
The handler function is found by looking the event's key sequence up\n\
in the buffer's local mouse map and in `global-mouse-map'.\n\
\n\
After running the handler, call the value of `mouse-event-function'\n\
with EVENT as arg.")
  (event)
     Lisp_Object event;
{
  Lisp_Object tem;
  Lisp_Object mouse_cmd;
  Lisp_Object keyseq, window, frame_part, pos, time;

#ifndef HAVE_X11
  Vmouse_event = event;
#endif

  if (EQ (event, Qnil))
    {
      bitch_at_user ();
      return Qnil;
    }

  CHECK_CONS (event, 0);
  pos = Fcar (event);
  window = Fcar (Fcdr (event));
  frame_part = Fcar (Fcdr (Fcdr (event)));
  keyseq = Fcar (Fcdr (Fcdr (Fcdr (event))));
  time = Fcar (Fcdr (Fcdr (Fcdr (Fcdr (event)))));
  CHECK_STRING (keyseq, 0);
  CHECK_WINDOW (window, 0);

  /* Look up KEYSEQ in the buffer's local mouse map, then in global one.  */

  mouse_cmd = Qnil;

  if (!NILP (XWINDOW (window)->buffer))
    {
      Lisp_Object local_map;

      local_map = XBUFFER (XWINDOW (window)->buffer)->mouse_map;
      tem = Fkeymapp (local_map);
      if (!NILP (tem))
	mouse_cmd = Flookup_key (local_map, keyseq);
      /* A number as value means the key is too long; treat as undefined.  */
      if (XTYPE (mouse_cmd) == Lisp_Int)
	mouse_cmd = Qnil;
    }

  tem = Fkeymapp (Vglobal_mouse_map);
  if (NILP (mouse_cmd) && !NILP (tem))
    mouse_cmd = Flookup_key (Vglobal_mouse_map, keyseq);
  if (XTYPE (mouse_cmd) == Lisp_Int)
    mouse_cmd = Qnil;

  if (NILP (mouse_cmd))
    {
      /* This button/shift combination is not defined.
	 If it is a button-down event, ring the bell.  */
#ifdef HAVE_X11
      if (XSTRING (keyseq)->data[XSTRING (keyseq)->size - 1] & 0x18 == 0)
#else
      if (XSTRING (keyseq)->data[XSTRING (keyseq)->size - 1] & 4 == 0)
#endif
	bitch_at_user ();
    }
  else
    {
      FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (window)));

#ifndef HAVE_X11
      Vmouse_window = f->selected_window;
#endif	/* HAVE_X11 */
      /* It's defined; call the definition.  */
      Vprefix_arg = Qnil;
      if (!NILP (frame_part))
	{
	  /* For a scroll-bar click, set the prefix arg
	     to the number of lines down from the top the click was.
	     Many scroll commands want to scroll by this many lines.  */
	  Lisp_Object position;
	  Lisp_Object length;
	  Lisp_Object offset;

	  position = Fcar (pos);
	  length = Fcar (Fcdr (pos));
	  offset = Fcar (Fcdr (Fcdr (pos)));

	  if (XINT (length) != 0)
	    XSET (Vprefix_arg, Lisp_Int,
		  (FRAME_HEIGHT (f) * (XINT (position) + XINT (offset))
		   / (XINT (length) + 2 * XINT (offset))));
	}
      Fcommand_execute (mouse_cmd, Qnil);
    }

  if (!NILP (Vmouse_event_function))  /* Not `event' so no need for GCPRO */
    call1 (Vmouse_event_function, Vmouse_event);
  return Qnil;
}
#endif

DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_command,
  1, 1, "P",
  "Read function name, then read its arguments and call it.")
  (prefixarg)
     Lisp_Object prefixarg;

  ()
{
  defining_kbd_macro = 0;
  update_mode_lines++;

#if 0
  unread_command_char = make_number (-1);
#endif
  unread_command_char = Qnil;

  discard_tty_input ();

  kbd_fetch_ptr = kbd_store_ptr;

  sigfree ();
  /* Prevent another signal from doing this before we finish.  */
  clear_waiting_for_input ();
  input_pending = 0;

#if 0
  unread_command_char = make_number (-1);
#endif
  unread_command_char = Qnil;

  _longjmp (getcjmp, 1);
}


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

  DEFVAR_LISP ("last-event-frame", &Vlast_event_frame,
    "*The frame in which the most recently read event occurred.");
  Vlast_event_frame = Qnil;

  DEFVAR_LISP ("help-char", &help_char,
    "Character to recognize as meaning Help.\n\
When it is read, do `(eval help-form)', and display result if it's a string.\n\
If the value of `help-form' is nil, this char can be read normally.");

    "String used as translate table for keyboard input, or nil.\n\
Each character is looked up in this string and the contents used instead.\n\
If string is of length N, character codes N and up are untranslated.");
  Vkeyboard_translate_table = Qnil;

#ifdef HAVE_X_WINDOWS
  DEFVAR_LISP ("mouse-event-function", &Vmouse_event_function,
    "Function to call for each mouse event, after the event's definition.\n\
Called, if non-nil, with one argument, which is the event-list.\n\
See the variable `mouse-event' for the format of this list.");
  Vmouse_event_function = Qnil;

  DEFVAR_LISP ("mouse-left-hook", &Vmouse_left_hook,
	       "Function to call when mouse leaves window.  No arguments.");
  Vmouse_left_hook = Qnil;

  DEFVAR_LISP ("map-frame-hook", &Vmap_frame_hook,
	       "Function to call when frame is mapped.  No arguments.");
  Vmap_frame_hook = Qnil;

  DEFVAR_LISP ("unmap-frame-hook", &Vunmap_frame_hook,
	       "Function to call when frame is unmapped.  No arguments.");
  Vunmap_frame_hook = Qnil;

  DEFVAR_LISP ("mouse-motion-handler", &Vmouse_motion_handler,
	       "Handler for motion events.  No arguments.");
  Vmouse_motion_handler = Qnil;
#endif

  DEFVAR_BOOL ("menu-prompting", &menu_prompting,
    "Non-nil means prompt with menus in echo area when appropriate.\n\
This is done when reading from a keymap that has a prompt string,\n\
for elements that have prompt strings.");
  menu_prompting = 1;

985:952aa214a3d0

/* The command being executed by the command loop.
   Commands may set this, and the value set will be copied into last_command
   instead of the actual command.  */
Lisp_Object this_command;

#ifdef MULTI_FRAME
/* The frame in which the last input event occurred.
   command_loop_1 will select this frame before running the
   command bound to an event sequence, and read_key_sequence will
   toss the existing prefix if the user starts typing at a
   new frame.  */
Lisp_Object Vlast_event_frame;
#endif

/* The timestamp of the last input event we received from the X server.
   X Windows wants this for selection ownership.  */
unsigned long last_event_timestamp;

      /* Now we have read a key sequence of length I,
	 or else I is 0 and we found end of file.  */

      if (i == 0)		/* End of file -- happens only in */
	return Qnil;		/* a kbd macro, at the end.  */

      last_command_char = keybuf[i - 1];

      cmd = read_key_sequence_cmd;
      if (!NILP (Vexecuting_macro))

  if (!NILP (unread_command_char))
    {
      c = unread_command_char;
      unread_command_char = Qnil;

      if (this_command_key_count == 0)
	goto reread_first;
      else
	goto reread;
    }

  c = kbd_buffer_get_event ();

  if (NILP (c))
    abort ();			/* Don't think this can happen. */

  /* Terminate Emacs in batch mode if at eof.  */
  if (noninteractive && c < 0)
    Fkill_emacs (make_number (1));

 non_reread:

      register int c = XFASTINT (event->code) & 0377;

      if (c == quit_char
	  || ((c == (0200 | quit_char)) && !meta_key))
	{
	  extern SIGTYPE interrupt_signal ();

#ifdef MULTI_FRAME
	  /* If this results in a quit_char being returned to Emacs as
	     input, set last-event-frame properly.  If this doesn't
	     get returned to Emacs as an event, the next event read
	     will set Vlast_event_frame again, so this is safe to do.  */
	  Vlast_event_frame = FRAME_FOCUS_FRAME (event->frame);
#endif

	  last_event_timestamp = event->timestamp;
	  interrupt_signal ();
	  return;
	}

	kbd_fetch_ptr = kbd_buffer;
      /* Do the redirection specified by the focus_frame
	 member now, before we return this event.  */
      kbd_fetch_ptr->frame =
	XFRAME (FRAME_FOCUS_FRAME (kbd_fetch_ptr->frame));

#ifdef MULTI_FRAME
      XSET (Vlast_event_frame, Lisp_Frame, kbd_fetch_ptr->frame);
#endif

      last_event_timestamp = kbd_fetch_ptr->timestamp;
      obj = make_lispy_event (kbd_fetch_ptr);
      kbd_fetch_ptr->kind = no_event;
      kbd_fetch_ptr++;
      if (XTYPE (obj) == Lisp_Int)

      FRAME_PTR frame;
      Lisp_Object x, y;
      unsigned long time;

      (*mouse_position_hook) (&frame, &x, &y, &time);
#ifdef MULTI_FRAME
      XSET (Vlast_event_frame, Lisp_Frame, frame);
#endif

      obj = make_lispy_movement (frame, x, y, time);
    }
  else
    /* We were promised by the above while loop that there was

      return tem;
    }
  return Qnil;
}

DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_command,
  1, 1, "P",
  "Read function name, then read its arguments and call it.")
  (prefixarg)
     Lisp_Object prefixarg;

  ()
{
  defining_kbd_macro = 0;
  update_mode_lines++;

  unread_command_char = Qnil;

  discard_tty_input ();

  kbd_fetch_ptr = kbd_store_ptr;

  sigfree ();
  /* Prevent another signal from doing this before we finish.  */
  clear_waiting_for_input ();
  input_pending = 0;

  unread_command_char = Qnil;

  _longjmp (getcjmp, 1);
}


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

#ifdef MULTI_FRAME
  DEFVAR_LISP ("last-event-frame", &Vlast_event_frame,
    "*The frame in which the most recently read event occurred.");
  Vlast_event_frame = Qnil;
#endif

  DEFVAR_LISP ("help-char", &help_char,
    "Character to recognize as meaning Help.\n\
When it is read, do `(eval help-form)', and display result if it's a string.\n\
If the value of `help-form' is nil, this char can be read normally.");

    "String used as translate table for keyboard input, or nil.\n\
Each character is looked up in this string and the contents used instead.\n\
If string is of length N, character codes N and up are untranslated.");
  Vkeyboard_translate_table = Qnil;

  DEFVAR_BOOL ("menu-prompting", &menu_prompting,
    "Non-nil means prompt with menus in echo area when appropriate.\n\
This is done when reading from a keymap that has a prompt string,\n\
for elements that have prompt strings.");
  menu_prompting = 1;