52 |
| CHAR_SHIFT | CHAR_CTL | CHAR_META); |
| CHAR_SHIFT | CHAR_CTL | CHAR_META); |
53 |
int flags = XINT (obj) & flagbits; |
int flags = XINT (obj) & flagbits; |
54 |
|
|
55 |
|
/* If the character has higher bits set |
56 |
|
above the flags, return it unchanged. |
57 |
|
It is not a real character. */ |
58 |
|
if ((unsigned) XFASTINT (obj) > (unsigned) flagbits) |
59 |
|
return obj; |
60 |
|
|
61 |
c = DOWNCASE (XFASTINT (obj) & ~flagbits); |
c = DOWNCASE (XFASTINT (obj) & ~flagbits); |
62 |
if (inword) |
if (inword) |
63 |
XSETFASTINT (obj, c | flags); |
XSETFASTINT (obj, c | flags); |