# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1136307287 0
# Node ID 2e977adcc0e5372ab889d78a650811d728b1c49d
# Parent  29f5edda3fd3e3cbe3b53a547d6e471c34f51d06
(describe_map_compare): Yet another int/Lisp_Object mixup.

diff -r 29f5edda3fd3 -r 2e977adcc0e5 src/keymap.c
--- a/src/keymap.c	Tue Jan 03 09:16:39 2006 +0000
+++ b/src/keymap.c	Tue Jan 03 16:54:47 2006 +0000
@@ -3196,8 +3196,8 @@
   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;
 }