Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/casefiddle.c	Mon Aug 13 10:36:50 2007 +0200
+++ b/src/casefiddle.c	Mon Aug 13 10:37:15 2007 +0200
@@ -61,7 +61,7 @@
 	  for (i = 0; i < len; i++)
 	    {
 	      Emchar c = string_char (XSTRING (obj), i);
-	      if (inword)
+	      if (inword && flag != CASE_CAPITALIZE_UP)
 		c = DOWNCASE (buf, c);
 	      else if (!UPPERCASEP (buf, c)
 		       && (!inword || flag != CASE_CAPITALIZE_UP))