Mercurial > hg > xemacs-beta

comparison src/casefiddle.c @ 199:169c0442b401 r20-3b26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b26
author cvs
date Mon, 13 Aug 2007 10:00:33 +0200
parents 3d6bfa290dbd
children c5d627a313b1
comparison
equal deleted inserted replaced
198:a94d4839ade3 199:169c0442b401
43 { 43 {
44 Emchar c; 44 Emchar c;
45 CHECK_CHAR_COERCE_INT (obj); 45 CHECK_CHAR_COERCE_INT (obj);
46 c = XCHAR (obj); 46 c = XCHAR (obj);
47 if (IN_TRT_TABLE_DOMAIN (c)) 47 if (IN_TRT_TABLE_DOMAIN (c))
48 obj = make_char (inword ? DOWNCASE (buf, c) : UPCASE1 (buf, c)); 48 {
49 if (inword)
50 obj = make_char (DOWNCASE (buf, c));
51 else if (!UPPERCASEP (buf, c))
52 obj = make_char (UPCASE1 (buf, c));
53 }
49 return obj; 54 return obj;
50 } 55 }
51 if (STRINGP (obj)) 56 if (STRINGP (obj))
52 { 57 {
53 Charcount i; 58 Charcount i;