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

(treesit-simple-indent-presets): Ensure 'and' works for anchors too

Browse source 
* lisp/treesit.el (treesit-simple-indent-presets):
Rewrite to return the last successful evaluation, not just t.
This commit is contained in:
Dmitry Gutov 2023-01-07 03:28:38 +02:00
parent ff66a5d324
commit 9d410f8de6
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/treesit.el
View file

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