Fix mistake in Lisp conversion of describe-map-tree

* lisp/help.el (describe-map-tree): Fix mistake in conversion to Lisp
from the C function describe_map_tree; make the condition match the
now removed C code.  (Bug#44360)

diff --git a/lisp/help.el b/lisp/help.el
index df055d602fe28cffb4ae9314bba7e10850750a10..466ff21eb2d3e2f2688aa3caad0440d47e667251 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1189,8 +1189,8 @@ Any inserted text ends in two newlines (used by
                 ;; map.
                 (or (keymapp sub-shadows)
                     (null sub-shadows)
-                    (consp sub-shadows)
-                    (not (keymapp (car sub-shadows)))))
+                    (and (consp sub-shadows)
+                         (keymapp (car sub-shadows)))))
           ;; Maps we have already listed in this loop shadow this map.
           (let ((tail orig-maps))
             (while (not (equal tail maps))