Mercurial > emacs
comparison src/keymap.c @ 89994:298e7fb11b61
(where_is_internal_2): Fix previous change.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 01 Oct 2004 08:18:00 +0000 |
parents | 4f38a84c01e5 |
children | ff0e824afa37 |
comparison
equal
deleted
inserted
replaced
89993:817beaa6daf4 | 89994:298e7fb11b61 |
---|---|
2705 Fixme: Perhaps it should be allowed to store a cons directly | 2705 Fixme: Perhaps it should be allowed to store a cons directly |
2706 in RESULT. -- handa@m17n.org */ | 2706 in RESULT. -- handa@m17n.org */ |
2707 int from = XINT (XCAR (key)), to = XINT (XCDR (key)); | 2707 int from = XINT (XCAR (key)), to = XINT (XCDR (key)); |
2708 Lisp_Object k; | 2708 Lisp_Object k; |
2709 | 2709 |
2710 for (; from <= to; from++) | 2710 for (; from <= to; to--) |
2711 { | 2711 { |
2712 k = make_number (from); | 2712 k = make_number (to); |
2713 sequence = where_is_internal_1 (binding, k, definition, noindirect, | 2713 sequence = where_is_internal_1 (binding, k, definition, noindirect, |
2714 this, last, nomenus, last_is_meta); | 2714 this, last, nomenus, last_is_meta); |
2715 if (!NILP (sequence)) | 2715 if (!NILP (sequence)) |
2716 result = Fcons (sequence, result); | 2716 result = Fcons (sequence, result); |
2717 if (from >= 128 && from < to) | 2717 if (to > 129) |
2718 from = to - 1; | 2718 to = 129; |
2719 } | 2719 } |
2720 result = Fnreverse (result); | |
2721 } | 2720 } |
2722 else | 2721 else |
2723 { | 2722 { |
2724 sequence = where_is_internal_1 (binding, key, definition, noindirect, | 2723 sequence = where_is_internal_1 (binding, key, definition, noindirect, |
2725 this, last, nomenus, last_is_meta); | 2724 this, last, nomenus, last_is_meta); |