(casify_object): Fix bug on handling a character

arguement.

1 files changed, 7 insertions, 3 deletions

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 89d528bcabb..90d09b46ac4 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -48,9 +48,13 @@ casify_object (flag, obj)
       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))