From 9fc722dee15cb7544a9920f521911a35e6aa4700 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 25 Mar 1994 03:02:27 +0000 Subject: [PATCH] (Fwhere_is_internal): Skip duplicates. --- src/keymap.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/keymap.c b/src/keymap.c index e5878125c70..1c403dcf234 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -1694,8 +1694,10 @@ indirect definition itself.") continue; } - /* It is a true unshadowed match. Record it. */ - found = Fcons (sequence, found); + /* It is a true unshadowed match. Record it, unless it's already + been seen (as could happen when inheriting keymaps). */ + if (NILP (Fmember (sequence, found))) + found = Fcons (sequence, found); /* If firstonly is Qnon_ascii, then we can return the first binding we find. If firstonly is not Qnon_ascii but not -- 2.11.4.GIT