comparison src/keymap.c @ 74574:3c809b430d91

(Flookup_key): Doc fix.

74573:1341133a3cd9

/* Value is number if KEY is too long; nil if valid but has no definition. */
/* GC is possible in this function if it autoloads a keymap.  */

DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0,
       doc: /* In keymap KEYMAP, look up key sequence KEY.  Return the definition.
nil means undefined.  See doc of `define-key' for kinds of definitions.

A number as value means KEY is "too long";
that is, characters or symbols in it except for the last one
fail to be a valid sequence of prefix characters in KEYMAP.
The number is how many characters at the front of KEY

  /* Key sequences beginning with mouse clicks
     are read using the keymaps of the buffer clicked on, not
     the current buffer.  So we may have to switch the buffer
     here. */
  
  if (CONSP (position))
    {
      Lisp_Object window;
      
      window = POSN_WINDOW (position);
	  
      if (WINDOWP (window)
	  && BUFFERP (XWINDOW (window)->buffer)
	  && XBUFFER (XWINDOW (window)->buffer) != current_buffer)
	{
	  /* Arrange to go back to the original buffer once we're done

	     save_excursion_{save,restore} here, in analogy to
	     `read-key-sequence' to avoid saving point.  Maybe this
	     would not be a problem here, but it is easier to keep
	     things the same.
	  */
	      
	  record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
	  
	  set_buffer_internal (XBUFFER (XWINDOW (window)->buffer));
	}
    }
  
  if (! NILP (current_kboard->Voverriding_terminal_local_map))
    {
      value = Flookup_key (current_kboard->Voverriding_terminal_local_map,
			   key, accept_default);
      if (! NILP (value) && !INTEGERP (value))

      pt = INTEGERP (position) ? XINT (position)
	: MARKERP (position) ? marker_position (position)
	: PT;

      local_map = get_local_map (pt, current_buffer, Qlocal_map); 
      keymap = get_local_map (pt, current_buffer, Qkeymap); 

      if (CONSP (position))
	{
	  Lisp_Object string;

	  /* For a mouse click, get the local text-property keymap
	     of the place clicked on, rather than point.  */
	  
	  if (POSN_INBUFFER_P (position))
	    {
	      Lisp_Object pos;

	      pos = POSN_BUFFER_POSN (position);
	      if (INTEGERP (pos)
		  && XINT (pos) >= BEG && XINT (pos) <= Z)
		{
		  local_map = get_local_map (XINT (pos),
					     current_buffer, Qlocal_map);
		  
		  keymap = get_local_map (XINT (pos),
					  current_buffer, Qkeymap);
		}
	    }

	  /* If on a mode line string with a local keymap,
	     or for a click on a string, i.e. overlay string or a
	     string displayed via the `display' property,
	     consider `local-map' and `keymap' properties of
	     that string.  */
	  
	  if (string = POSN_STRING (position),
	      (CONSP (string) && STRINGP (XCAR (string))))
	    {
	      Lisp_Object pos, map;
	      
	      pos = XCDR (string);
	      string = XCAR (string);
	      if (INTEGERP (pos)
		  && XINT (pos) >= 0
		  && XINT (pos) < SCHARS (string))

		  map = Fget_text_property (pos, Qkeymap, string);
		  if (!NILP (map))
		    keymap = map;
		}
	    }
	  
	}

      if (! NILP (keymap))
	{
	  value = Flookup_key (keymap, key, accept_default);

74574:3c809b430d91

/* Value is number if KEY is too long; nil if valid but has no definition. */
/* GC is possible in this function if it autoloads a keymap.  */

DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0,
       doc: /* In keymap KEYMAP, look up key sequence KEY.  Return the definition.
A value of nil means undefined.  See doc of `define-key'
for kinds of definitions.

A number as value means KEY is "too long";
that is, characters or symbols in it except for the last one
fail to be a valid sequence of prefix characters in KEYMAP.
The number is how many characters at the front of KEY

  /* Key sequences beginning with mouse clicks
     are read using the keymaps of the buffer clicked on, not
     the current buffer.  So we may have to switch the buffer
     here. */

  if (CONSP (position))
    {
      Lisp_Object window;

      window = POSN_WINDOW (position);

      if (WINDOWP (window)
	  && BUFFERP (XWINDOW (window)->buffer)
	  && XBUFFER (XWINDOW (window)->buffer) != current_buffer)
	{
	  /* Arrange to go back to the original buffer once we're done

	     save_excursion_{save,restore} here, in analogy to
	     `read-key-sequence' to avoid saving point.  Maybe this
	     would not be a problem here, but it is easier to keep
	     things the same.
	  */

	  record_unwind_protect (Fset_buffer, Fcurrent_buffer ());

	  set_buffer_internal (XBUFFER (XWINDOW (window)->buffer));
	}
    }

  if (! NILP (current_kboard->Voverriding_terminal_local_map))
    {
      value = Flookup_key (current_kboard->Voverriding_terminal_local_map,
			   key, accept_default);
      if (! NILP (value) && !INTEGERP (value))

      pt = INTEGERP (position) ? XINT (position)
	: MARKERP (position) ? marker_position (position)
	: PT;

      local_map = get_local_map (pt, current_buffer, Qlocal_map);
      keymap = get_local_map (pt, current_buffer, Qkeymap);

      if (CONSP (position))
	{
	  Lisp_Object string;

	  /* For a mouse click, get the local text-property keymap
	     of the place clicked on, rather than point.  */

	  if (POSN_INBUFFER_P (position))
	    {
	      Lisp_Object pos;

	      pos = POSN_BUFFER_POSN (position);
	      if (INTEGERP (pos)
		  && XINT (pos) >= BEG && XINT (pos) <= Z)
		{
		  local_map = get_local_map (XINT (pos),
					     current_buffer, Qlocal_map);

		  keymap = get_local_map (XINT (pos),
					  current_buffer, Qkeymap);
		}
	    }

	  /* If on a mode line string with a local keymap,
	     or for a click on a string, i.e. overlay string or a
	     string displayed via the `display' property,
	     consider `local-map' and `keymap' properties of
	     that string.  */

	  if (string = POSN_STRING (position),
	      (CONSP (string) && STRINGP (XCAR (string))))
	    {
	      Lisp_Object pos, map;

	      pos = XCDR (string);
	      string = XCAR (string);
	      if (INTEGERP (pos)
		  && XINT (pos) >= 0
		  && XINT (pos) < SCHARS (string))

		  map = Fget_text_property (pos, Qkeymap, string);
		  if (!NILP (map))
		    keymap = map;
		}
	    }

	}

      if (! NILP (keymap))
	{
	  value = Flookup_key (keymap, key, accept_default);