comparison src/keyboard.c @ 2892:7ff263825550

(follow_key): Check char in range before UPPERCASEP.

2891:c10bb302a315

	/* Turn ASCII characters into control characters
	   when proper.  */
	if (event->modifiers & ctrl_modifier)
	  {
	    if (c >= 0100 && c < 0140)
	      c &= ~040;
	    /* Include the bits for control and shift
	       only if the basic ASCII code can't indicate them.  */
	    c |= ctrl_modifier;
	  }
	/* Set the shift modifier for a control char
	   made from a shifted letter.  But only for letters!  */
	if (XFASTINT (event->code) >= 'A' - 0100
	    && XFASTINT (event->code) <= 'Z' - 0100
	    && (event->modifiers & shift_modifier))
	  c |= shift_modifier;
	c |= (event->modifiers
	      & (meta_modifier | alt_modifier
		 | hyper_modifier | super_modifier));
	return c;
      }

  /* When KEY is not defined in any of the keymaps, if it is an upper
     case letter and there are bindings for the corresponding
     lower-case letter, return the bindings for the lower-case letter.  */
  if (first_binding == nmaps
      && XTYPE (key) == Lisp_Int
      && (UPPERCASEP (XINT (key) & 0x3ffff)
	  || (XINT (key) & shift_modifier)))
    {
      if (XINT (key) & shift_modifier)
	XSETINT (key, XINT (key) & ~shift_modifier);
      else

2892:7ff263825550

	/* Turn ASCII characters into control characters
	   when proper.  */
	if (event->modifiers & ctrl_modifier)
	  {
	    if (c >= 0100 && c < 0140)
	      {
		int oc = c;
		c &= ~0140;
		/* Set the shift modifier for a control char
		   made from a shifted letter.  But only for letters!  */
		if (oc >= 'A' && oc <= 'Z')
		  c |= shift_modifier;
	      }
	    else if (c >= 'a' && c <= 'z')
	      c &= ~0140;
	    /* Include the bits for control and shift
	       only if the basic ASCII code can't indicate them.  */
	    else
	      c |= ctrl_modifier;
	  }
	c |= (event->modifiers
	      & (meta_modifier | alt_modifier
		 | hyper_modifier | super_modifier));
	return c;
      }

  /* When KEY is not defined in any of the keymaps, if it is an upper
     case letter and there are bindings for the corresponding
     lower-case letter, return the bindings for the lower-case letter.  */
  if (first_binding == nmaps
      && XTYPE (key) == Lisp_Int
      && ((((XINT (key) & 0x3ffff)
	    < XSTRING (current_buffer->downcase_table)->size)
	   && UPPERCASEP (XINT (key) & 0x3ffff))
	  || (XINT (key) & shift_modifier)))
    {
      if (XINT (key) & shift_modifier)
	XSETINT (key, XINT (key) & ~shift_modifier);
      else