emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/haskell-ts-mode 2280feefe6 3/8: Comment fixed


From: ELPA Syncer
Subject: [nongnu] elpa/haskell-ts-mode 2280feefe6 3/8: Comment fixed
Date: Mon, 16 Sep 2024 10:00:12 -0400 (EDT)

branch: elpa/haskell-ts-mode
commit 2280feefe6f09022b29e6365ddd315bdd1ae20eb
Author: pranshu sharma <pranshu@pebl>
Commit: pranshu sharma <pranshu@pebl>

    Comment fixed
    
    p-prev was broken
---
 haskell-ts-mode.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/haskell-ts-mode.el b/haskell-ts-mode.el
index 6a5c794abe..7ff4d7eff3 100644
--- a/haskell-ts-mode.el
+++ b/haskell-ts-mode.el
@@ -172,11 +172,13 @@
 (defvar haskell-ts-indent-rules
   (let* ((p-sib
         (lambda (node arg)
-          (let ((n (treesit-node-prev-sibling node)))
+          (let* ((func (if arg
+                          'treesit-node-prev-sibling
+                        'treesit-node-next-sibling))
+                (n (funcall func        node)))
             (while (and n (string-match (regexp-opt haskell-ts--ignore-types)
                                         (treesit-node-type n)))
-              (setq n (if arg (treesit-node-prev-sibling n)
-                        (treesit-node-next-sibling n))))
+              (setq n (funcall func n)))
             n)))
         (p-prev-sib
          (lambda (node _ _) (treesit-node-start (funcall p-sib node t))))
@@ -189,7 +191,7 @@
        ;; 3. parent
        ;; (relevent means type not it haskell-ts--ignore-types)
        (lambda (node parent _)
-          (if-let ((next-sib (funcall ,p-sib node t)))
+          (if-let ((next-sib (funcall ,p-sib node nil)))
               (treesit-node-start next-sib)
             (if-let ((prev-sib (funcall ,p-prev-sib node nil nil)))
               prev-sib



reply via email to

[Prev in Thread] Current Thread [Next in Thread]