From e230fea5eddac81b4a94ca3ac410a448c8b54553 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 30 Sep 2022 17:11:27 +0300 Subject: [PATCH] FIXED: error when indenting after prefix operator --- sweeprolog.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 2.39.2