procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(treesit-simple-indent-presets): Do that for 'or' as well.

Browse source 
* lisp/treesit.el
(treesit-simple-indent-presets): Do that for 'or' as well.
This commit is contained in:
Dmitry Gutov 2023-01-07 13:16:56 +02:00
parent e0fef510b0
commit 86a3462e3d
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/treesit.el
View file

@ -1187,9 +1187,12 @@ See `treesit-simple-indent-presets'.")
res))))
(cons 'or (lambda (&rest fns)
(lambda (node parent bol &rest _)
(seq-find
(lambda (fn) (funcall fn node parent bol))
fns))))
(let (res)
(catch 'break
(dolist (fn fns)
(setq res (funcall fn node parent bol))
(and res (throw 'break t))))
res))))
(cons 'not (lambda (fn)
(lambda (node parent bol &rest _)
(not (funcall fn node parent bol)))))