mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 18:00:40 -08:00
Code Issues Projects Releases Wiki Activity

(describe_map_compare): Yet another int/Lisp_Object mixup.

Browse source
This commit is contained in:
Stefan Monnier 2006-01-03 16:54:47 +00:00
parent 6918ac24b0
commit ccf0250b2f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/keymap.c
View file

@ -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;
}