From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 15 Aug 2022 14:18:21 +0000 (+0200)
Subject: Fix fix_command for non-symbol functions
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~1886^2~138
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=5025b2566e72ba37b62c2a00feef46268fc9f468;p=emacs.git

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).
---

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);