martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

; Fix 'treesit-admin--unversioned-treesit-language-source-alist'

Browse Source 
* admin/tree-sitter/treesit-admin.el
(treesit-admin--unversioned-treesit-language-source-alist):
Use the correct return value.
This commit is contained in:
Juri Linkov
2026-01-19 09:39:00 +02:00
parent aff85304d9
commit f33507111d
1 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
admin/tree-sitter/treesit-admin.el
View File

@@ -138,14 +138,12 @@ This is done by `require'ing all of the features that extend it."
(lambda (source)
(cond ((or (memq :revision source)
(memq :commit source))
(when (memq :revision source)
(let ((unversioned-source (copy-sequence source)))
(setcar (cdr (memq :revision unversioned-source)) nil)
unversioned-source))
(when (memq :commit source)
(let ((unversioned-source (copy-sequence source)))
(setcar (cdr (memq :commit unversioned-source)) nil)
unversioned-source)))
(let ((unversioned-source (copy-sequence source)))
(when (memq :revision source)
(setcar (cdr (memq :revision unversioned-source)) nil))
(when (memq :commit source)
(setcar (cdr (memq :commit unversioned-source)) nil))
unversioned-source))
((nthcdr 2 source)
(let ((unversioned-source (copy-sequence source)))
(setcar (nthcdr 2 unversioned-source) nil)