# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 759809381 0
# Node ID a93fc56763fdef41e69b4217285d690bc7d9235b
# Parent  3b4bb6d2c922e5090756fce498f95c81a552b026
Scale by sizeof when allocating objects.

diff -r 3b4bb6d2c922 -r a93fc56763fd src/keymap.c
--- a/src/keymap.c	Sat Jan 29 02:03:55 1994 +0000
+++ b/src/keymap.c	Sat Jan 29 02:09:41 1994 +0000
@@ -775,15 +775,21 @@
 	    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;
 	      }