2707 |
int from = XINT (XCAR (key)), to = XINT (XCDR (key)); |
int from = XINT (XCAR (key)), to = XINT (XCDR (key)); |
2708 |
Lisp_Object k; |
Lisp_Object k; |
2709 |
|
|
2710 |
for (; from <= to; from++) |
for (; from <= to; to--) |
2711 |
{ |
{ |
2712 |
k = make_number (from); |
k = make_number (to); |
2713 |
sequence = where_is_internal_1 (binding, k, definition, noindirect, |
sequence = where_is_internal_1 (binding, k, definition, noindirect, |
2714 |
this, last, nomenus, last_is_meta); |
this, last, nomenus, last_is_meta); |
2715 |
if (!NILP (sequence)) |
if (!NILP (sequence)) |
2716 |
result = Fcons (sequence, result); |
result = Fcons (sequence, result); |
2717 |
if (from >= 128 && from < to) |
if (to > 129) |
2718 |
from = to - 1; |
to = 129; |
2719 |
} |
} |
|
result = Fnreverse (result); |
|
2720 |
} |
} |
2721 |
else |
else |
2722 |
{ |
{ |