Mercurial > hg > xemacs-beta

comparison src/casefiddle.c @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 169c0442b401
children 6cb5e14cd98e
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
54 return obj; 54 return obj;
55 } 55 }
56 if (STRINGP (obj)) 56 if (STRINGP (obj))
57 { 57 {
58 Charcount i; 58 Charcount i;
59 Charcount len = string_char_length (XSTRING (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)