aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa2004-10-01 08:18:00 +0000
committerKenichi Handa2004-10-01 08:18:00 +0000
commitb9b1c01690ef9e061dfa2a2c37ca4e7892a1172a (patch)
tree6586f8b73ccfe5894f0fdf9ab434ac252f14cc81
parent578079800e2b9dfb53d757eb59042695673d2958 (diff)
downloademacs-b9b1c01690ef9e061dfa2a2c37ca4e7892a1172a.tar.gz
emacs-b9b1c01690ef9e061dfa2a2c37ca4e7892a1172a.zip
(where_is_internal_2): Fix previous change.
-rw-r--r--src/keymap.c9
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 {