From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 28 Oct 2022 16:05:32 +0000 (+0300)
Subject: FIXED: correctly recognize "public" head terms
X-Git-Tag: V8.5.20-sweep-0.8.2~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ecd2475d211ee0a939c16d022e77763a454e261;p=sweep.git

FIXED: correctly recognize "public" head terms
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 51c4c44..9208b53 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -1686,7 +1686,7 @@ When non-nil, only predicates whose name contains PREFIX are returned."
      (list (list beg end (sweeprolog-head-imported-face))))
     (`("head" ,(rx "extern(") . ,_)
      (list (list beg end (sweeprolog-head-extern-face))))
-    (`("head" ,(rx "public(") . ,_)
+    (`("head" ,(rx "public ") . ,_)
      (list (list beg end (sweeprolog-head-public-face))))
     (`("head",(rx "dynamic ") ,f ,a)
      (add-to-list 'sweeprolog--exportable-predicates (concat f "/" (number-to-string a)))