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
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)))) res))))
(cons 'or (lambda (&rest fns) (cons 'or (lambda (&rest fns)
(lambda (node parent bol &rest _) (lambda (node parent bol &rest _)
(seq-find (let (res)
(lambda (fn) (funcall fn node parent bol)) (catch 'break
fns)))) (dolist (fn fns)
(setq res (funcall fn node parent bol))
(and res (throw 'break t))))
res))))
(cons 'not (lambda (fn) (cons 'not (lambda (fn)
(lambda (node parent bol &rest _) (lambda (node parent bol &rest _)
(not (funcall fn node parent bol))))) (not (funcall fn node parent bol)))))