Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages 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
Show stats 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)