Scale by sizeof when allocating objects.

1 files changed, 10 insertions, 4 deletions

diff --git a/src/keymap.c b/src/keymap.c
index e512dcce258..4a39764c0f3 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -775,15 +775,21 @@ current_minor_maps (modeptr, mapptr)
             if (cmm_maps)
               {
                 BLOCK_INPUT;
-                newmodes = (Lisp_Object *) realloc (cmm_modes, cmm_size *= 2);
-                newmaps  = (Lisp_Object *) realloc (cmm_maps,  cmm_size);
+                cmm_size *= 2;
+                newmodes = (Lisp_Object *)
+                  realloc (cmm_modes, cmm_size * sizeof (Lisp_Object));
+                newmaps  = (Lisp_Object *)
+                  realloc (cmm_maps,  cmm_size * sizeof (Lisp_Object));
                 UNBLOCK_INPUT;
               }
             else
               {
                 BLOCK_INPUT;
-                newmodes = (Lisp_Object *) malloc (cmm_size = 30);
-                newmaps  = (Lisp_Object *) malloc (cmm_size);
+                cmm_size = 30;
+                newmodes = (Lisp_Object *)
+                  malloc (cmm_size * sizeof (Lisp_Object));
+                newmaps  = (Lisp_Object *)
+                  malloc (cmm_size * sizeof (Lisp_Object));
                 UNBLOCK_INPUT;
               }