master 7f8a3d4e91: Clean up fix_command slightly

[Lars Ingebrigtsen]

branch: master
commit 7f8a3d4e919e495fadb4eb6fae3f73556b987700
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Clean up fix_command slightly
    
    * src/callint.c (fix_command): Remove now-unused parameter.
    (Fcall_interactively): Ditto.
---
 src/callint.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/callint.c b/src/callint.c
index dfc479284c..e670c8f638 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);
        }