Mercurial > emacs

diff src/keymap.c @ 6524:cedc6c52a812

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fwhere_is_internal): Skip duplicates.
author Karl Heuer <kwzh@gnu.org>
date Fri, 25 Mar 1994 03:02:27 +0000
parents 18dfda644bc0
children c66bed2f25af
line wrap: on
line diff
--- a/src/keymap.c	Fri Mar 25 01:34:24 1994 +0000
+++ b/src/keymap.c	Fri Mar 25 03:02:27 1994 +0000
@@ -1694,8 +1694,10 @@
 		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