From f33507111d98aee6b303fe6d7aa517a998b81f29 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 19 Jan 2026 09:39:00 +0200 Subject: [PATCH] ; 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. --- admin/tree-sitter/treesit-admin.el | 14 ++++++-------- 1 file 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)