comparison src/casefiddle.c @ 22506:2107e25fa56f

(casify_object): Cope with modifier bits in character.

22505:d4f3552a85f2

  while (1)
    {
      if (INTEGERP (obj))
	{
	  c = DOWNCASE (XFASTINT (obj));
	  if (inword)
	    XSETFASTINT (obj, c);
	  else if (c == XFASTINT (obj))
	    {
	      c = UPCASE1 (XFASTINT (obj));
	      XSETFASTINT (obj, c);
	    }
	  return obj;
	}

      if (STRINGP (obj))

22506:2107e25fa56f

  while (1)
    {
      if (INTEGERP (obj))
	{
	  int flagbits = (CHAR_ALT | CHAR_SUPER | CHAR_HYPER
			  | CHAR_SHIFT | CHAR_CTL | CHAR_META);
	  int flags = XINT (obj) & flagbits;

	  c = DOWNCASE (XFASTINT (obj) & ~flagbits);
	  if (inword)
	    XSETFASTINT (obj, c | flags);
	  else if (c == (XFASTINT (obj) & ~flagbits))
	    {
	      c = UPCASE1 ((XFASTINT (obj) & ~flagbits));
	      XSETFASTINT (obj, c | flags);
	    }
	  return obj;
	}

      if (STRINGP (obj))