From 23cf1efa9c4a7b56303f92f78d99739b00141a92 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 16 Oct 1997 18:28:41 +0000 Subject: [PATCH] (Faccessible_keymaps): Avoid alloca for fixed-size array. (Fset_keymap_parent, Fcopy_keymap, Fwhere_is_internal): Likewise. --- src/keymap.c | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/src/keymap.c b/src/keymap.c index 84acd616bed..96fe0af8c52 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -341,8 +341,7 @@ PARENT should be nil or another keymap.") if (CHAR_TABLE_P (XCONS (list)->car)) { - Lisp_Object *indices - = (Lisp_Object *) alloca (3 * sizeof (Lisp_Object)); + Lisp_Object indices[3]; map_char_table (fix_submap_inheritance, Qnil, XCONS (list)->car, keymap, 0, indices); @@ -707,8 +706,7 @@ is not copied.") elt = XCONS (tail)->car; if (CHAR_TABLE_P (elt)) { - Lisp_Object *indices - = (Lisp_Object *) alloca (3 * sizeof (Lisp_Object)); + Lisp_Object indices[3]; elt = Fcopy_sequence (elt); XCONS (tail)->car = elt; @@ -1434,8 +1432,7 @@ then the value includes only maps for prefixes that start with PREFIX.") if (CHAR_TABLE_P (elt)) { - Lisp_Object *indices - = (Lisp_Object *) alloca (3 * sizeof (Lisp_Object)); + Lisp_Object indices[3]; map_char_table (accessible_keymaps_char_table, Qnil, elt, Fcons (maps, Fcons (tail, thisseq)), @@ -1985,9 +1982,9 @@ indirect definition itself.") } else if (CHAR_TABLE_P (elt)) { - Lisp_Object *indices - = (Lisp_Object *) alloca (3 * sizeof (Lisp_Object)); + Lisp_Object indices[3]; Lisp_Object args; + args = Fcons (Fcons (Fcons (definition, noindirect), Fcons (keymap, Qnil)), Fcons (Fcons (this, last), -- 2.39.2