Avoid duplicate comparison in describe_map_compare

* src/fns.c (string_version_cmp): New function.
This has most of the old Fstring_version_lessp,
with an assertion to make things a bit clearer.
* src/fns.c (Fstring_version_lessp):
* src/keymap.c (describe_map_compare): Use it (Bug#33237).

1 files changed, 1 insertions, 3 deletions

diff --git a/src/keymap.c b/src/keymap.c
index fc04c565a1e..6762915f70c 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -3100,9 +3100,7 @@ describe_map_compare (const void *aa, const void *bb)
   if (SYMBOLP (a->event) && SYMBOLP (b->event))
     /* Sort the keystroke names in the "natural" way, with (for
        instance) "<f2>" coming between "<f1>" and "<f11>".  */
-    return (!NILP (Fstring_version_lessp (a->event, b->event)) ? -1
-            : !NILP (Fstring_version_lessp (b->event, a->event)) ? 1
-            : 0);
+    return string_version_cmp (SYMBOL_NAME (a->event), SYMBOL_NAME (b->event));
   return 0;
 }