diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-15 16:18:21 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-15 16:18:45 +0200 |
commit | 5025b2566e72ba37b62c2a00feef46268fc9f468 (patch) | |
tree | 17434cc7080fb6544529ca28d0e097bc62288595 | |
parent | 629f980fad0bee97ff63c5f684b472cc71061eea (diff) | |
download | emacs-5025b2566e72ba37b62c2a00feef46268fc9f468.tar.gz |
Fix fix_command for non-symbol functions
* src/callint.c (fix_command): Don't bug out on commands that
aren't symbols (like lambdas, for instance).
-rw-r--r-- | src/callint.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/callint.c b/src/callint.c index c974967459c..8ef0e5240a5 100644 --- a/src/callint.c +++ b/src/callint.c @@ -171,7 +171,7 @@ static void fix_command (Lisp_Object function, Lisp_Object values) { /* Quick exit if there's no values to alter. */ - if (!CONSP (values)) + if (!CONSP (values) || !SYMBOLP (function)) return; Lisp_Object reps = Fget (function, Qinteractive_args); |