mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-18 11:50:38 -08:00
Code Issues Projects Releases Wiki Activity

Avoid assertion violations in 'lookup-key'

Browse source 
* src/keymap.c (Flookup_key): Don't call ASIZE unless KEY is a
vector.  This avoids assertion violations when KEY is a string.
This commit is contained in:
Eli Zaretskii 2021-10-28 20:52:41 +03:00
parent f52fa1c150
commit bea843dee1
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/keymap.c
View file

@ -1253,8 +1253,8 @@ recognize the default bindings, just as `read-key-sequence' does. */)
/* Menu definitions might use mixed case symbols (notably in old /* Menu definitions might use mixed case symbols (notably in old
versions of `easy-menu-define'). We accept this variation for versions of `easy-menu-define'). We accept this variation for
backwards-compatibility. (Bug#50752) */ backwards-compatibility. (Bug#50752) */
ptrdiff_t key_len = ASIZE (key); ptrdiff_t key_len = VECTORP (key) ? ASIZE (key) : 0;
if (VECTORP (key) && key_len > 0 && EQ (AREF (key, 0), Qmenu_bar)) if (key_len > 0 && EQ (AREF (key, 0), Qmenu_bar))
{ {
Lisp_Object new_key = make_vector (key_len, Qnil); Lisp_Object new_key = make_vector (key_len, Qnil);
for (int i = 0; i < key_len; ++i) for (int i = 0; i < key_len; ++i)