From ccf0250b2fe3586c7a3c68c8f8e330c73f2786a6 Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 3 Jan 2006 16:54:47 +0000
Subject: [PATCH] (describe_map_compare): Yet another int/Lisp_Object mixup.

---
 src/keymap.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/keymap.c b/src/keymap.c
index f12a66c6326..8f462b3af73 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -3196,8 +3196,8 @@ describe_map_compare (aa, bb)
   if (INTEGERP (a->event) && !INTEGERP (b->event))
     return -1;
   if (SYMBOLP (a->event) && SYMBOLP (b->event))
-    return (Fstring_lessp (a->event, b->event) ? -1
-	    : Fstring_lessp (b->event, a->event) ? 1
+    return (!NILP (Fstring_lessp (a->event, b->event)) ? -1
+	    : !NILP (Fstring_lessp (b->event, a->event)) ? 1
 	    : 0);
   return 0;
 }
-- 
2.39.2