mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 15:21:51 -08:00
Code Issues Projects Releases Wiki Activity

(casify_object): Remove loop around wrong_type_argument.

Browse source
This commit is contained in:
Kim F. Storm 2006-07-12 13:14:51 +00:00
parent b08b1fc936
commit 4e374bf2f8
1 changed files with 53 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

108
src/casefiddle.c
View file

@ -45,75 +45,73 @@ casify_object (flag, obj)
if (NILP (XCHAR_TABLE (current_buffer->downcase_table)->extras[1]))
Fset_case_table (current_buffer->downcase_table);
while (1)
if (INTEGERP (obj))
{
if (INTEGERP (obj))
int flagbits = (CHAR_ALT | CHAR_SUPER | CHAR_HYPER
| CHAR_SHIFT | CHAR_CTL | CHAR_META);
int flags = XINT (obj) & flagbits;
/* If the character has higher bits set
above the flags, return it unchanged.
It is not a real character. */
if ((unsigned) XFASTINT (obj) > (unsigned) flagbits)
return obj;
c = DOWNCASE (XFASTINT (obj) & ~flagbits);
if (inword)
XSETFASTINT (obj, c | flags);
else if (c == (XFASTINT (obj) & ~flagbits))
{
int flagbits = (CHAR_ALT | CHAR_SUPER | CHAR_HYPER
| CHAR_SHIFT | CHAR_CTL | CHAR_META);
int flags = XINT (obj) & flagbits;
/* If the character has higher bits set
above the flags, return it unchanged.
It is not a real character. */
if ((unsigned) XFASTINT (obj) > (unsigned) flagbits)
return obj;
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;
c = UPCASE1 ((XFASTINT (obj) & ~flagbits));
XSETFASTINT (obj, c | flags);
}
return obj;
}
if (STRINGP (obj))
if (STRINGP (obj))
{
int multibyte = STRING_MULTIBYTE (obj);
int n;
obj = Fcopy_sequence (obj);
len = SBYTES (obj);
/* I counts bytes, and N counts chars. */
for (i = n = 0; i < len; n++)
{
int multibyte = STRING_MULTIBYTE (obj);
int n;
int from_len = 1, to_len = 1;
obj = Fcopy_sequence (obj);
len = SBYTES (obj);
c = SREF (obj, i);
/* I counts bytes, and N counts chars. */
for (i = n = 0; i < len; n++)
if (multibyte && c >= 0x80)
c = STRING_CHAR_AND_LENGTH (SDATA (obj) + i, len -i, from_len);
if (inword && flag != CASE_CAPITALIZE_UP)
c = DOWNCASE (c);
else if (!UPPERCASEP (c)
&& (!inword || flag != CASE_CAPITALIZE_UP))
c = UPCASE1 (c);
if ((ASCII_BYTE_P (c) && from_len == 1)
|| (! multibyte && SINGLE_BYTE_CHAR_P (c)))
SSET (obj, i, c);
else
{
int from_len = 1, to_len = 1;
c = SREF (obj, i);
if (multibyte && c >= 0x80)
c = STRING_CHAR_AND_LENGTH (SDATA (obj) + i, len -i, from_len);
if (inword && flag != CASE_CAPITALIZE_UP)
c = DOWNCASE (c);
else if (!UPPERCASEP (c)
&& (!inword || flag != CASE_CAPITALIZE_UP))
c = UPCASE1 (c);
if ((ASCII_BYTE_P (c) && from_len == 1)
|| (! multibyte && SINGLE_BYTE_CHAR_P (c)))
SSET (obj, i, c);
to_len = CHAR_BYTES (c);
if (from_len == to_len)
CHAR_STRING (c, SDATA (obj) + i);
else
{
to_len = CHAR_BYTES (c);
if (from_len == to_len)
CHAR_STRING (c, SDATA (obj) + i);
else
{
Faset (obj, make_number (n), make_number (c));
len += to_len - from_len;
}
Faset (obj, make_number (n), make_number (c));
len += to_len - from_len;
}
if ((int) flag >= (int) CASE_CAPITALIZE)
inword = SYNTAX (c) == Sword;
i += to_len;
}
return obj;
if ((int) flag >= (int) CASE_CAPITALIZE)
inword = SYNTAX (c) == Sword;
i += to_len;
}
obj = wrong_type_argument (Qchar_or_string_p, obj);
return obj;
}
return wrong_type_argument (Qchar_or_string_p, obj);
}
DEFUN ("upcase", Fupcase, Supcase, 1, 1, 0,