Avoid segfault in command-modes
* src/data.c (Fcommand_modes): Check that bytecode object is interactive before accessing its interactive spec to avoid segfaulting (bug#50376).
This commit is contained in:
parent
0fe03c4740
commit
534e631b00
1 changed files with 2 additions and 0 deletions
|
@ -1045,6 +1045,8 @@ The value, if non-nil, is a list of mode name symbols. */)
|
|||
|
||||
if (COMPILEDP (fun))
|
||||
{
|
||||
if (PVSIZE (fun) <= COMPILED_INTERACTIVE)
|
||||
return Qnil;
|
||||
Lisp_Object form = AREF (fun, COMPILED_INTERACTIVE);
|
||||
if (VECTORP (form))
|
||||
/* New form -- the second element is the command modes. */
|
||||
|
|
Loading…
Add table
Reference in a new issue