From: Andrea Corallo <acorallo@gnu.org>
Date: Tue, 23 Apr 2024 13:37:04 +0000 (+0200)
Subject: * Generate elisp_type_hierarchy.txt with top level types on top of it
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1eaba88de5f699482bd29381ccd122ff5734558;p=emacs.git

* Generate elisp_type_hierarchy.txt with top level types on top of it

* admin/syncdoc-type-hierarchy.el (syncdoc-make-type-table): Prioratize
to level types.

(cherry picked from commit cb04549204d738603400d1fe14de7f5b59cc516f)
---

diff --git a/admin/syncdoc-type-hierarchy.el b/admin/syncdoc-type-hierarchy.el
index 56f2c30527e..ed827844d0b 100644
--- a/admin/syncdoc-type-hierarchy.el
+++ b/admin/syncdoc-type-hierarchy.el
@@ -97,7 +97,7 @@
             (lambda (x1 x2)
               (< (length (memq (car x2) syncdoc-all-types))
                  (length (memq (car x1) syncdoc-all-types)))))
-      (cl-loop for (type . children) in subtypes
+      (cl-loop for (type . children) in (reverse subtypes)
                do (insert "|" (symbol-name type) " |")
                do (cl-loop with x = 0
                            for child in children