diff options
| author | Dmitry Antipov <dmantipov@yandex.ru> | 2014-09-24 15:11:14 +0400 |
|---|---|---|
| committer | Dmitry Antipov <dmantipov@yandex.ru> | 2014-09-24 15:11:14 +0400 |
| commit | c0b1b0371527124f34f505bdac6f2a1cdf8e37b9 (patch) | |
| tree | 218d6d7a6d64be6019a68ebc19fc2119febe830c /src/keymap.c | |
| parent | d4dfe4ea85328f7afd288cd43e141430db33e4e8 (diff) | |
| download | emacs-c0b1b0371527124f34f505bdac6f2a1cdf8e37b9.tar.gz | |
* chartab.c (uniprop_encode_value_numeric):
* font.c (font_style_to_value): Use make_local_vector.
(font_delete_unmatched): Use local_cons but respect MAX_ALLOCA.
* keymap.c (append_key): Use scoped_list1.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/keymap.c b/src/keymap.c index a1299ec8554..1d85a403554 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -1299,11 +1299,7 @@ define_as_prefix (Lisp_Object keymap, Lisp_Object c) static Lisp_Object append_key (Lisp_Object key_sequence, Lisp_Object key) { - Lisp_Object args[2]; - - args[0] = key_sequence; - args[1] = list1 (key); - return Fvconcat (2, args); + return Fvconcat (2, ((Lisp_Object []) { key_sequence, scoped_list1 (key) })); } /* Given a event type C which is a symbol, |