From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 11 Feb 1998 01:51:36 +0000 (+0000)
Subject: (describe_map_tree): Add the maps we have already
X-Git-Tag: emacs-20.3~2191
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4b6f8e3fdbb743d4e8e170a402ae3c25234263e;p=emacs.git

(describe_map_tree): Add the maps we have already
handled into SUB_SHADOWS.
---

diff --git a/src/keymap.c b/src/keymap.c
index 4e8259fde2f..94188044d12 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2386,7 +2386,7 @@ describe_map_tree (startmap, partial, shadow, prefix, title, nomenu, transl,
      int transl;
      int always_title;
 {
-  Lisp_Object maps, seen, sub_shadows;
+  Lisp_Object maps, orig_maps, seen, sub_shadows;
   struct gcpro gcpro1, gcpro2, gcpro3;
   int something = 0;
   char *key_heading
@@ -2394,7 +2394,7 @@ describe_map_tree (startmap, partial, shadow, prefix, title, nomenu, transl,
 key             binding\n\
 ---             -------\n";
 
-  maps = Faccessible_keymaps (startmap, prefix);
+  orig_maps = maps = Faccessible_keymaps (startmap, prefix);
   seen = Qnil;
   sub_shadows = Qnil;
   GCPRO3 (maps, seen, sub_shadows);
@@ -2475,7 +2475,16 @@ key             binding\n\
 	    sub_shadows = Fcons (shmap, sub_shadows);
 	}
 
-      describe_map (Fcdr (elt), Fcar (elt),
+      /* Maps we have already listed in this loop shadow this map.  */
+      for (tail = orig_maps; ! EQ (tail, maps); tail = XCDR (tail))
+	{
+	  Lisp_Object tem;
+	  tem = Fequal (Fcar (XCAR (tail)), prefix);
+	  if (! NILP (tem))
+	    sub_shadows = Fcons (XCDR (XCAR (tail)), sub_shadows);
+	}
+
+      describe_map (Fcdr (elt), prefix,
 		    transl ? describe_translation : describe_command,
 		    partial, sub_shadows, &seen, nomenu);