diff options
| author | Kenichi Handa | 2004-10-01 08:18:00 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2004-10-01 08:18:00 +0000 |
| commit | b9b1c01690ef9e061dfa2a2c37ca4e7892a1172a (patch) | |
| tree | 6586f8b73ccfe5894f0fdf9ab434ac252f14cc81 /src/keymap.c | |
| parent | 578079800e2b9dfb53d757eb59042695673d2958 (diff) | |
| download | emacs-b9b1c01690ef9e061dfa2a2c37ca4e7892a1172a.tar.gz emacs-b9b1c01690ef9e061dfa2a2c37ca4e7892a1172a.zip | |
(where_is_internal_2): Fix previous change.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/keymap.c b/src/keymap.c index dfa060a66f1..5177ccfbf8d 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -2707,17 +2707,16 @@ where_is_internal_2 (args, key, binding) | |||
| 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 | { |