From 7f8a3d4e919e495fadb4eb6fae3f73556b987700 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 8 Aug 2022 16:01:24 +0200 Subject: [PATCH] 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 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); } -- 2.39.2