From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 8 Aug 2022 14:01:24 +0000 (+0200)
Subject: Clean up fix_command slightly
X-Git-Tag: emacs-29.0.90~1447^2~314
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f8a3d4e919e495fadb4eb6fae3f73556b987700;p=emacs.git

Clean up fix_command slightly

* src/callint.c (fix_command): Remove now-unused parameter.
(Fcall_interactively): Ditto.
---

diff --git a/src/callint.c b/src/callint.c
index dfc479284c0..e670c8f638b 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -168,7 +168,7 @@ check_mark (bool for_region)
    of VALUES to do its job.  */
 
 static void
-fix_command (Lisp_Object input, Lisp_Object function, Lisp_Object values)
+fix_command (Lisp_Object function, Lisp_Object values)
 {
   /* Quick exit if there's no values to alter.  */
   if (!CONSP (values))
@@ -317,7 +317,6 @@ invoke it (via an `interactive' spec that contains, for instance, an
     {
       Lisp_Object funval = Findirect_function (function, Qt);
       uintmax_t events = num_input_events;
-      Lisp_Object input = specs;
       /* Compute the arg values using the user's expression.  */
       specs = Feval (specs,
  		     CONSP (funval) && EQ (Qclosure, XCAR (funval))
@@ -328,7 +327,7 @@ invoke it (via an `interactive' spec that contains, for instance, an
 	     Make a copy of the list of values, for the command history,
 	     and turn them into things we can eval.  */
 	  Lisp_Object values = quotify_args (Fcopy_sequence (specs));
-	  fix_command (input, function, values);
+	  fix_command (function, values);
           call4 (intern ("add-to-history"), intern ("command-history"),
                  Fcons (function, values), Qnil, Qt);
 	}