From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 8 Sep 2022 16:33:29 +0000 (+0300)
Subject: PORT: don't use the 2nd arg to looking-at, added only in Emacs 29
X-Git-Tag: v0.2.0~16
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a70a730f48a8aed26450989c785f120df36774ea;p=sweep.git

PORT: don't use the 2nd arg to looking-at, added only in Emacs 29
---

diff --git a/sweep.el b/sweep.el
index 44baa15..096edd5 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))))))))