[nongnu] elpa/haskell-tng-mode 7eaef51 078/385: optimisation in the sexp test

[ELPA Syncer]

branch: elpa/haskell-tng-mode
commit 7eaef5140341e3a018baf48c7731f11ee398b1bc
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@gmail.com>

    optimisation in the sexp test
---
 haskell-tng-smie.el           | 2 +-
 test/haskell-tng-sexp-test.el | 6 ++++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/haskell-tng-smie.el b/haskell-tng-smie.el
index bc729ac..619773f 100644
--- a/haskell-tng-smie.el
+++ b/haskell-tng-smie.el
@@ -102,7 +102,7 @@
 
     )))
 
-;; TODO indentation rules
+;; FIXME indentation rules
 ;; 
https://www.gnu.org/software/emacs/manual/html_mono/elisp.html#SMIE-Indentation
 ;;
 ;; ideas for an indentation tester
diff --git a/test/haskell-tng-sexp-test.el b/test/haskell-tng-sexp-test.el
index 7332243..d0abd96 100644
--- a/test/haskell-tng-sexp-test.el
+++ b/test/haskell-tng-sexp-test.el
@@ -46,7 +46,8 @@
              (forward-sexp)
              (let ((forward (point)))
                (backward-sexp)
-               (unless (= (point) forward)
+               (unless (or (< p (point))
+                           (= (point) forward))
                  (cons (point) forward))))))
         (backward-forward
          (ignore-errors
@@ -55,7 +56,8 @@
              (backward-sexp)
              (let ((backward (point)))
                (forward-sexp)
-               (unless (= backward (point))
+               (unless (or (< (point) p)
+                           (= backward (point)))
                  (cons backward (point))))))))
     (when forward-backward
       (push forward-backward sexps))