(Fwhere_is_internal): Skip duplicates.

diff --git a/src/keymap.c b/src/keymap.c
index e5878125c70acb3f48b4eecbc883a5b6a99ec239..1c403dcf234f4ef46b95ecc7c721e96f3dccb55f 100644 (file)
--- 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