(describe_map_compare): Yet another int/Lisp_Object mixup.

2006-01-03 16:54:47 +00:00
parent 6918ac24b0
commit ccf0250b2f
1 changed files with 2 additions and 2 deletions
--- 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;
 }