From 11adcac6d0c5308b607cf7c11cfce4f34782fe99 Mon Sep 17 00:00:00 2001
From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 23 May 2025 13:40:11 +0200
Subject: [PATCH] * test/infra/Dockerfile.emba (emacs-tree-sitter): Cosmetic
 change.

(cherry picked from commit c8795767292caaaa3765ef6fffb12a7c0809d642)
---
 test/infra/Dockerfile.emba | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/test/infra/Dockerfile.emba b/test/infra/Dockerfile.emba
index 96fe0440667..70bfb076c3c 100644
--- a/test/infra/Dockerfile.emba
+++ b/test/infra/Dockerfile.emba
@@ -129,6 +129,7 @@ RUN git config --global http.sslverify "false"
 RUN src/emacs -Q --batch \
     --eval '(message "library ABI min version %d max version %d" \
         (treesit-library-abi-version t) (treesit-library-abi-version))' \
+    --eval '(message "\nInstalling grammars\n===================")' \
     --eval '(setq treesit-extra-load-path (list "/root/.emacs.d/tree-sitter"))' \
     --eval '(dolist (feature (quote (c-ts-mode cmake-ts-mode csharp-mode \
         dockerfile-ts-mode elixir-ts-mode heex-ts-mode go-ts-mode java-ts-mode \
@@ -137,13 +138,21 @@ RUN src/emacs -Q --batch \
         toml-ts-mode yaml-ts-mode treesit-x))) (require feature))' \
     --eval '(dolist (lang (mapcar (quote car) treesit-language-source-alist)) \
         (treesit-install-language-grammar lang "/root/.emacs.d/tree-sitter"))' \
-    --eval '(message "treesit-language-source-alist\n%s" \
-        (pp-to-string treesit-language-source-alist))' \
-    --eval '(dolist (lang (sort (mapcar (quote car) treesit-language-source-alist))) \
-        (message "%s ABI version %d" lang (treesit-language-abi-version lang)))' \
+    --eval '(message "\ntreesit-language-source-alist")' \
+    --eval '(message "=============================")' \
+    --eval '(message "%s" (pp-to-string treesit-language-source-alist))' \
+    --eval '(message "ABI versions\n===========")' \
+    --eval \
+        '(dolist (lang (sort (mapcar (quote car) treesit-language-source-alist))) \
+         (message "%s ABI version %d" lang (treesit-language-abi-version lang)))' \
     -l admin/tree-sitter/treesit-admin.el \
-    --eval '(setq treesit-admin--builtin-language-sources treesit-language-source-alist)' \
+    --eval '(setq treesit-admin--builtin-language-sources \
+        treesit-language-source-alist)' \
+    --eval '(message "\ntreesit-admin-check-manual-coverage")' \
+    --eval '(message "===================================")' \
     -f treesit-admin-check-manual-coverage \
+    --eval '(message "\ntreesit-admin--generate-compatibility-report")' \
+    --eval '(message "============================================")' \
     --eval '(treesit-admin--generate-compatibility-report \
         (list (expand-file-name "src/emacs")) treesit-admin--builtin-modes \
         (expand-file-name "compatibility-report.html"))'
-- 
2.39.5