[nongnu] elpa/sweeprolog a70a730f48 087/166: PORT: don't use the 2nd arg to looking-at, added only in Emacs 29

[ELPA Syncer]

branch: elpa/sweeprolog
commit a70a730f48a8aed26450989c785f120df36774ea
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    PORT: don't use the 2nd arg to looking-at, added only in Emacs 29
---
 sweep.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/sweep.el b/sweep.el
index 44baa158e9..096edd59fe 100644
--- a/sweep.el
+++ b/sweep.el
@@ -329,16 +329,16 @@ FLAG and VALUE are specified as strings and read as 
Prolog terms."
       (save-match-data
         (when point (goto-char point))
         (unless (bobp) (backward-char))
-        (while (looking-at "[[:alnum:]_]" t)
+        (while (looking-at-p "[[:alnum:]_]")
           (backward-char))
-        (when (looking-at ":[[:lower:]]")
+        (when (looking-at-p ":[[:lower:]]")
           (unless (bobp) (backward-char))
-          (while (looking-at "[[:alnum:]_]" t)
+          (while (looking-at-p "[[:alnum:]_]")
             (backward-char)))
         (forward-char)
-        (when (looking-at "[[:lower:]]" t)
+        (when (looking-at-p "[[:lower:]]")
           (let ((start (point)))
-            (while (looking-at "[[:alnum:]:_]" t)
+            (while (looking-at-p "[[:alnum:]:_]")
               (forward-char))
             (cons start (point))))))))