Commit 23cf1efa authored by Karl Heuer's avatar Karl Heuer
Browse files

(Faccessible_keymaps): Avoid alloca for fixed-size array.

(Fset_keymap_parent, Fcopy_keymap, Fwhere_is_internal): Likewise.
parent 7019cca7
...@@ -341,8 +341,7 @@ PARENT should be nil or another keymap.") ...@@ -341,8 +341,7 @@ PARENT should be nil or another keymap.")
if (CHAR_TABLE_P (XCONS (list)->car)) if (CHAR_TABLE_P (XCONS (list)->car))
{ {
Lisp_Object *indices Lisp_Object indices[3];
= (Lisp_Object *) alloca (3 * sizeof (Lisp_Object));
map_char_table (fix_submap_inheritance, Qnil, XCONS (list)->car, map_char_table (fix_submap_inheritance, Qnil, XCONS (list)->car,
keymap, 0, indices); keymap, 0, indices);
...@@ -707,8 +706,7 @@ is not copied.") ...@@ -707,8 +706,7 @@ is not copied.")
elt = XCONS (tail)->car; elt = XCONS (tail)->car;
if (CHAR_TABLE_P (elt)) if (CHAR_TABLE_P (elt))
{ {
Lisp_Object *indices Lisp_Object indices[3];
= (Lisp_Object *) alloca (3 * sizeof (Lisp_Object));
elt = Fcopy_sequence (elt); elt = Fcopy_sequence (elt);
XCONS (tail)->car = elt; XCONS (tail)->car = elt;
...@@ -1434,8 +1432,7 @@ then the value includes only maps for prefixes that start with PREFIX.") ...@@ -1434,8 +1432,7 @@ then the value includes only maps for prefixes that start with PREFIX.")
if (CHAR_TABLE_P (elt)) if (CHAR_TABLE_P (elt))
{ {
Lisp_Object *indices Lisp_Object indices[3];
= (Lisp_Object *) alloca (3 * sizeof (Lisp_Object));
map_char_table (accessible_keymaps_char_table, Qnil, map_char_table (accessible_keymaps_char_table, Qnil,
elt, Fcons (maps, Fcons (tail, thisseq)), elt, Fcons (maps, Fcons (tail, thisseq)),
...@@ -1985,9 +1982,9 @@ indirect definition itself.") ...@@ -1985,9 +1982,9 @@ indirect definition itself.")
} }
else if (CHAR_TABLE_P (elt)) else if (CHAR_TABLE_P (elt))
{ {
Lisp_Object *indices Lisp_Object indices[3];
= (Lisp_Object *) alloca (3 * sizeof (Lisp_Object));
Lisp_Object args; Lisp_Object args;
args = Fcons (Fcons (Fcons (definition, noindirect), args = Fcons (Fcons (Fcons (definition, noindirect),
Fcons (keymap, Qnil)), Fcons (keymap, Qnil)),
Fcons (Fcons (this, last), Fcons (Fcons (this, last),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment