diff options
| author | Juri Linkov <juri@linkov.net> | 2026-01-19 09:39:00 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2026-01-19 09:39:00 +0200 |
| commit | f33507111d98aee6b303fe6d7aa517a998b81f29 (patch) | |
| tree | 5b30a2c0cf6772175427eccbcb906681d814b789 /admin | |
| parent | aff85304d9d9de1ef7833a4ee35b5c081cc80bc7 (diff) | |
; Fix 'treesit-admin--unversioned-treesit-language-source-alist'
* admin/tree-sitter/treesit-admin.el
(treesit-admin--unversioned-treesit-language-source-alist):
Use the correct return value.
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/tree-sitter/treesit-admin.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/admin/tree-sitter/treesit-admin.el b/admin/tree-sitter/treesit-admin.el index c15768a9c0d..5e78f930443 100644 --- a/admin/tree-sitter/treesit-admin.el +++ b/admin/tree-sitter/treesit-admin.el @@ -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) |