(selection_data_to_lisp_data): Convert Fmake_vector

[gnu-emacs] / src / casefiddle.c

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 90d09b46ac4564e0f279ba8e13db8aa144fa3eac..dfa2981eb04c9790600313c75ebbe15fce02f671 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;