From 86a3462e3d286d4d39337ad450987bbba9415f16 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sat, 7 Jan 2023 13:16:56 +0200 Subject: [PATCH] (treesit-simple-indent-presets): Do that for 'or' as well. * lisp/treesit.el (treesit-simple-indent-presets): Do that for 'or' as well. --- lisp/treesit.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/treesit.el b/lisp/treesit.el index 11a78bddcd8..7205e43916d 100644 --- a/lisp/treesit.el +++ b/lisp/treesit.el @@ -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))))) -- 2.39.2