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);