# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 865385768 0
# Node ID 015e9e4a90ed9144ecb82739b3e55afccfdef302
# Parent  000b0a8baf1a230447b883b58a10a3f1aa49fe44
(casify_object): Fix bug on handling a character
arguement.

diff -r 000b0a8baf1a -r 015e9e4a90ed src/casefiddle.c
--- a/src/casefiddle.c	Tue Jun 03 08:17:35 1997 +0000
+++ b/src/casefiddle.c	Wed Jun 04 00:56:08 1997 +0000
@@ -48,9 +48,13 @@
       if (INTEGERP (obj))
 	{
 	  c = DOWNCASE (obj);
-	  if (!inword && c == XFASTINT (obj))
-	    c = UPCASE1 (obj);
-	  XSETFASTINT (obj, c);
+	  if (inword)
+	    XSETFASTINT (obj, c);
+	  else if (c == XFASTINT (obj))
+	    {
+	      c = UPCASE1 (obj);
+	      XSETFASTINT (obj, c);
+	    }
 	  return obj;
 	}
       if (STRINGP (obj))