Mercurial > hg > xemacs-beta

comparison src/casefiddle.c @ 292:6cb5e14cd98e r21-0b44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b44
author cvs
date Mon, 13 Aug 2007 10:37:15 +0200
parents c5d627a313b1
children 6240c7796c7a
comparison
equal deleted inserted replaced
291:7aa74ac42bd2 292:6cb5e14cd98e
59 Charcount len = XSTRING_CHAR_LENGTH (obj); 59 Charcount len = XSTRING_CHAR_LENGTH (obj);
60 obj = Fcopy_sequence (obj); 60 obj = Fcopy_sequence (obj);
61 for (i = 0; i < len; i++) 61 for (i = 0; i < len; i++)
62 { 62 {
63 Emchar c = string_char (XSTRING (obj), i); 63 Emchar c = string_char (XSTRING (obj), i);
64 if (inword) 64 if (inword && flag != CASE_CAPITALIZE_UP)
65 c = DOWNCASE (buf, c); 65 c = DOWNCASE (buf, c);
66 else if (!UPPERCASEP (buf, c) 66 else if (!UPPERCASEP (buf, c)
67 && (!inword || flag != CASE_CAPITALIZE_UP)) 67 && (!inword || flag != CASE_CAPITALIZE_UP))
68 c = UPCASE1 (buf, c); 68 c = UPCASE1 (buf, c);
69 set_string_char (XSTRING (obj), i, c); 69 set_string_char (XSTRING (obj), i, c);