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: emacs-29.0.90~1447^2~138
X-Git-Url: http://git.eshelyaron.com/gitweb/?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);