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

diff --git a/sweep.el b/sweep.el
index 44baa158e9d7596fcf35230ae2ea6c3b7bf804c6..096edd59fe9dc4e2d5d2be766b1170b676f3d391 100644 (file)
--- 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))))))))