Mercurial > emacs

comparison src/keymap.c @ 5691:a93fc56763fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Scale by sizeof when allocating objects.
author Karl Heuer <kwzh@gnu.org>
date Sat, 29 Jan 1994 02:09:41 +0000
parents cad51b2de6cd
children a966bcdd01d0
comparison
equal deleted inserted replaced
5690:3b4bb6d2c922 5691:a93fc56763fd
773 Lisp_Object *newmodes, *newmaps; 773 Lisp_Object *newmodes, *newmaps;
774 774
775 if (cmm_maps) 775 if (cmm_maps)
776 { 776 {
777 BLOCK_INPUT; 777 BLOCK_INPUT;
778 newmodes = (Lisp_Object *) realloc (cmm_modes, cmm_size *= 2); 778 cmm_size *= 2;
779 newmaps = (Lisp_Object *) realloc (cmm_maps, cmm_size); 779 newmodes = (Lisp_Object *)
780 realloc (cmm_modes, cmm_size * sizeof (Lisp_Object));
781 newmaps = (Lisp_Object *)
782 realloc (cmm_maps, cmm_size * sizeof (Lisp_Object));
780 UNBLOCK_INPUT; 783 UNBLOCK_INPUT;
781 } 784 }
782 else 785 else
783 { 786 {
784 BLOCK_INPUT; 787 BLOCK_INPUT;
785 newmodes = (Lisp_Object *) malloc (cmm_size = 30); 788 cmm_size = 30;
786 newmaps = (Lisp_Object *) malloc (cmm_size); 789 newmodes = (Lisp_Object *)
790 malloc (cmm_size * sizeof (Lisp_Object));
791 newmaps = (Lisp_Object *)
792 malloc (cmm_size * sizeof (Lisp_Object));
787 UNBLOCK_INPUT; 793 UNBLOCK_INPUT;
788 } 794 }
789 795
790 if (newmaps && newmodes) 796 if (newmaps && newmodes)
791 { 797 {