awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-02 14:53:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(tree-sitter): treesit-enabled-modes: sort arity in <30

Browse Source 
`sort`s signature changed in Emacs 30 from:

  (sort SEQ PREDICATE)

To

  (sort SEQ &key KEY LESSP REVERSE IN-PLACE)

Amend: 6009c2b838
This commit is contained in:
Henrik Lissner
2025-08-31 14:34:45 +02:00
parent d77d39ab46
commit d9fd5cb8f3
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
modules/tools/tree-sitter/autoload/compat-30.el
View File

@@ -55,8 +55,11 @@ or t to enable all ts-modes."
(const :tag "Enable all available ts-modes" t)
(set :tag "List of enabled ts-modes"
,@(when (treesit-available-p)
(sort (mapcar (lambda (m) `(function-item ,m))
(seq-uniq (mapcar #'cdr treesit-major-mode-remap-alist)))))))
(let ((items (mapcar (lambda (m) `(function-item ,m))
(seq-uniq (mapcar #'cdr treesit-major-mode-remap-alist)))))
(if (= (car (func-arity 'sort)) 1)
(sort items)
(sort items #'value<))))))
:initialize #'custom-initialize-default
:set (lambda (sym val)
(set-default sym val)