mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2025-12-06 02:30:33 -08:00
Code Issues 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
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
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)