Fix bugs with inappropriate mixing of Lisp_Object with int.

[bpt/emacs.git] / src / casefiddle.c

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 90d09b4..dfa2981 100644 (file)
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -47,12 +47,12 @@ casify_object (flag, obj)
     {
       if (INTEGERP (obj))
        {
-         c = DOWNCASE (obj);
+         c = DOWNCASE (XFASTINT (obj));
          if (inword)
            XSETFASTINT (obj, c);
          else if (c == XFASTINT (obj))
            {
-             c = UPCASE1 (obj);
+             c = UPCASE1 (XFASTINT (obj));
              XSETFASTINT (obj, c);
            }
          return obj;