From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 25 Mar 1994 03:02:27 +0000 (+0000)
Subject: (Fwhere_is_internal): Skip duplicates.
X-Git-Tag: emacs-19.34~9328
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9fc722dee15cb7544a9920f521911a35e6aa4700;p=emacs.git

(Fwhere_is_internal): Skip duplicates.
---

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