diff options
| author | Lars Ingebrigtsen | 2022-08-15 16:18:21 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-08-15 16:18:45 +0200 |
| commit | 5025b2566e72ba37b62c2a00feef46268fc9f468 (patch) | |
| tree | 17434cc7080fb6544529ca28d0e097bc62288595 /src | |
| parent | 629f980fad0bee97ff63c5f684b472cc71061eea (diff) | |
| download | emacs-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.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 | |||
| 171 | fix_command (Lisp_Object function, Lisp_Object values) | 171 | fix_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); |