mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* admin/syncdoc-type-hierarchy.el (syncdoc-make-type-table): Prioratize
to level types.
This commit is contained in:
Andrea Corallo 2024-04-23 15:37:04 +02:00
parent 05008290fb
commit cb04549204
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
admin/syncdoc-type-hierarchy.el
View file

@ -97,7 +97,7 @@
(lambda (x1 x2) (lambda (x1 x2)
(< (length (memq (car x2) syncdoc-all-types)) (< (length (memq (car x2) syncdoc-all-types))
(length (memq (car x1) 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 (insert "|" (symbol-name type) " |")
do (cl-loop with x = 0 do (cl-loop with x = 0
for child in children for child in children