aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorLars Ingebrigtsen2022-08-15 16:18:21 +0200
committerLars Ingebrigtsen2022-08-15 16:18:45 +0200
commit5025b2566e72ba37b62c2a00feef46268fc9f468 (patch)
tree17434cc7080fb6544529ca28d0e097bc62288595 /src
parent629f980fad0bee97ff63c5f684b472cc71061eea (diff)
downloademacs-5025b2566e72ba37b62c2a00feef46268fc9f468.tar.gz
emacs-5025b2566e72ba37b62c2a00feef46268fc9f468.zip
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).
Diffstat (limited to 'src')
-rw-r--r--src/callint.c2
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
171fix_command (Lisp_Object function, Lisp_Object values) 171fix_command (Lisp_Object function, Lisp_Object values)
172{ 172{
173 /* Quick exit if there's no values to alter. */ 173 /* Quick exit if there's no values to alter. */
174 if (!CONSP (values)) 174 if (!CONSP (values) || !SYMBOLP (function))
175 return; 175 return;
176 176
177 Lisp_Object reps = Fget (function, Qinteractive_args); 177 Lisp_Object reps = Fget (function, Qinteractive_args);