Don't override existing tree-sitter-major-mode-language-alist entries

Author: ubolonton

tree-sitter-langs.el

@@ -96,41 +96,41 @@ See `tree-sitter-langs-repos'."
 ;;;###autoload
 (defun tree-sitter-langs--init-major-mode-alist (&rest _args)
   "Link known major modes to languages provided by the bundle."
-  (pcase-dolist
-      (`(,major-mode . ,lang-symbol)
-       (reverse '((agda-mode       . agda)
-                  (sh-mode         . bash)
-                  (c-mode          . c)
-                  (csharp-mode     . c-sharp)
-                  (c++-mode        . cpp)
-                  (css-mode        . css)
-                  (elm-mode        . elm)
-                  (go-mode         . go)
-                  (hcl-mode        . hcl)
-                  (html-mode       . html)
-                  (mhtml-mode      . html)
-                  (java-mode       . java)
-                  (javascript-mode . javascript)
-                  (js-mode         . javascript)
-                  (js2-mode        . javascript)
-                  (js3-mode        . javascript)
-                  (json-mode       . json)
-                  (jsonc-mode      . json)
-                  (julia-mode      . julia)
-                  (ocaml-mode      . ocaml)
-                  (php-mode        . php)
-                  (python-mode     . python)
-                  (pygn-mode       . pgn)
-                  (rjsx-mode       . javascript)
-                  (ruby-mode       . ruby)
-                  (rust-mode       . rust)
-                  (rustic-mode     . rust)
-                  (scala-mode      . scala)
-                  (swift-mode      . swift)
-                  (tuareg-mode     . ocaml)
-                  (typescript-mode . typescript))))
-    (setf (map-elt tree-sitter-major-mode-language-alist major-mode)
-          lang-symbol))
+  (dolist
+      (entry (reverse
+              '((agda-mode       . agda)
+                (sh-mode         . bash)
+                (c-mode          . c)
+                (csharp-mode     . c-sharp)
+                (c++-mode        . cpp)
+                (css-mode        . css)
+                (elm-mode        . elm)
+                (go-mode         . go)
+                (hcl-mode        . hcl)
+                (html-mode       . html)
+                (mhtml-mode      . html)
+                (java-mode       . java)
+                (javascript-mode . javascript)
+                (js-mode         . javascript)
+                (js2-mode        . javascript)
+                (js3-mode        . javascript)
+                (json-mode       . json)
+                (jsonc-mode      . json)
+                (julia-mode      . julia)
+                (ocaml-mode      . ocaml)
+                (php-mode        . php)
+                (python-mode     . python)
+                (pygn-mode       . pgn)
+                (rjsx-mode       . javascript)
+                (ruby-mode       . ruby)
+                (rust-mode       . rust)
+                (rustic-mode     . rust)
+                (scala-mode      . scala)
+                (swift-mode      . swift)
+                (tuareg-mode     . ocaml)
+                (typescript-mode . typescript))))
+    (cl-pushnew entry tree-sitter-major-mode-language-alist
+                :key #'car))
   (advice-remove 'tree-sitter--setup #'tree-sitter-langs--init-major-mode-alist))
 
 ;;;###autoload