comparison src/keymap.c @ 90614:8dd8c8286063

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 460-475) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 145-152) - Merge from emacs--devo--0 - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-118

90613:7a2fdfcc7f71

	   scrollbar or mode line */
	= AREF (key, SYMBOLP (AREF (key, 0)) && ASIZE (key) > 1 ? 1 : 0);

      /* We are not interested in locations without event data */

      if (EVENT_HAS_PARAMETERS (event)) {
	Lisp_Object kind;

	kind = EVENT_HEAD_KIND (EVENT_HEAD (event));
	if (EQ (kind, Qmouse_click))
	  position = EVENT_START (event);
      }
    }

  /* 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

	    {
	      Lisp_Object pos, map;
	      
	      pos = XCDR (string);
	      string = XCAR (string);
	      if (XINT (pos) >= 0
		  && XINT (pos) < SCHARS (string))
		{
		  map = Fget_text_property (pos, Qlocal_map, string);
		  if (!NILP (map))
		    local_map = map;

90614:8dd8c8286063

	   scrollbar or mode line */
	= AREF (key, SYMBOLP (AREF (key, 0)) && ASIZE (key) > 1 ? 1 : 0);

      /* We are not interested in locations without event data */

      if (EVENT_HAS_PARAMETERS (event))
	{
	  Lisp_Object kind = EVENT_HEAD_KIND (EVENT_HEAD (event));
	  if (CONSP (XCDR (event)) && EQ (kind, Qmouse_click))
	    position = EVENT_START (event);
	}
    }

  /* 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

	    {
	      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, Qlocal_map, string);
		  if (!NILP (map))
		    local_map = map;