[rpms/emacs] rawhide: For now, don’t recommend parsers for generic Tree-sitter modes

[rpms/emacs] rawhide: For now, don’t recommend parsers for generic Tree-sitter modes

[Peter Oliver]

            A new commit has been pushed.

            Repo   : rpms/emacs
            Branch : rawhide
            Commit : 4588679e36cf53257c51cfce12da903a71580ca4
            Author : Peter Oliver <git@mavit.org.uk>
            Date   : 2026-08-12T16:34:09+01:00
            Stats  : +20/-16 in 1 file(s)
            URL    : https://src.fedoraproject.org/rpms/emacs/c/4588679e36cf53257c51cfce12da903a71580ca4?branch=rawhide

            Log:
            For now, don’t recommend parsers for generic Tree-sitter modes

Emacs can’t currently use system-installed parsers with `define-treesit-generic-mode`, because it can’t find the associated `highlights.scm.`

https://debbugs.gnu.org/cgi/bugreport.cgi?bug=81025

---
diff --git a/emacs_lisp.rec b/emacs_lisp.rec
index 499bdae..4fab3ac 100755
--- a/emacs_lisp.rec
+++ b/emacs_lisp.rec
@@ -51,22 +51,26 @@
                      nil t)
                   (add-parser-at-point))
 
-                (goto-char (point-min))
-                (while
-                    (search-forward-regexp
-                     (rx "(" (zero-or-more space)
-                         "define-treesit-generic-mode"
-                         (one-or-more space))
-                     nil t)
-                  (backward-char)
-                  (when
-                      (search-forward-regexp
-                       (rx space ":lang" (one-or-more space) "'")
-                       (save-excursion
-                         (end-of-defun)
-                         (point))
-                       t)
-                    (add-parser-at-point)))
+                ;;;; It's unhelpful to recommend parsers for generic
+                ;;;; Tree-sitter modes until
+                ;;;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=81025
+                ;;;; is fixed.
+                ;; (goto-char (point-min))
+                ;; (while
+                ;;     (search-forward-regexp
+                ;;      (rx "(" (zero-or-more space)
+                ;;          "define-treesit-generic-mode"
+                ;;          (one-or-more space))
+                ;;      nil t)
+                ;;   (backward-char)
+                ;;   (when
+                ;;       (search-forward-regexp
+                ;;        (rx space ":lang" (one-or-more space) "'")
+                ;;        (save-excursion
+                ;;          (end-of-defun)
+                ;;          (point))
+                ;;        t)
+                ;;     (add-parser-at-point)))
 
                 (when parsers
                   (princ (concat ";" filename "\n"))