From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 30 Sep 2022 14:11:27 +0000 (+0300)
Subject: FIXED: error when indenting after prefix operator
X-Git-Tag: v0.4.5~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e230fea5eddac81b4a94ca3ac410a448c8b54553;p=dict.git

FIXED: error when indenting after prefix operator
---

diff --git a/sweeprolog.el b/sweeprolog.el
index a924379..137539f 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1782,7 +1782,7 @@ Interactively, a prefix arg means to prompt for BUFFER."
              (sweeprolog--forward-term pre))
          (if-let ((ppre (sweeprolog-op-suffix-precedence
                          (buffer-substring-no-properties obeg oend))))
-             (if (> opre pre)
+             (if (> ppre pre)
                  (signal 'scan-error
                          (list (format "Cannot scan beyond suffix operator of higher precedence %s." opre)
                                obeg
@@ -1803,7 +1803,7 @@ Interactively, a prefix arg means to prompt for BUFFER."
            (sweeprolog--forward-term pre))
        (if-let ((ppre (sweeprolog-op-prefix-precedence
                        (buffer-substring-no-properties obeg oend))))
-           (if (> opre pre)
+           (if (> ppre pre)
                (signal 'scan-error
                        (list (format "Cannot scan backwards beyond prefix operator of higher precedence %s." opre)
                              obeg
@@ -1856,7 +1856,7 @@ Interactively, a prefix arg means to prompt for BUFFER."
              (sweeprolog--backward-term pre))
          (if-let ((ppre (sweeprolog-op-prefix-precedence
                          (buffer-substring-no-properties obeg oend))))
-             (if (> opre pre)
+             (if (> ppre pre)
                  (signal 'scan-error
                          (list (format "Cannot scan backwards beyond prefix operator of higher precedence %s." opre)
                                obeg
@@ -1877,7 +1877,7 @@ Interactively, a prefix arg means to prompt for BUFFER."
            (sweeprolog--backward-term pre))
        (if-let ((ppre (sweeprolog-op-prefix-precedence
                        (buffer-substring-no-properties obeg oend))))
-           (if (> opre pre)
+           (if (> ppre pre)
                (signal 'scan-error
                        (list (format "Cannot scan backwards beyond prefix operator of higher precedence %s." opre)
                              obeg