[nongnu] elpa/sweeprolog 7fa11fdcdd 055/166: FIXED: hide predicates starting with '$' in sweep-find-predicate

[ELPA Syncer]

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

    FIXED: hide predicates starting with '$' in sweep-find-predicate
---
 sweep.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/sweep.pl b/sweep.pl
index 68343bed66..d0461cf3d2 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -292,10 +292,13 @@ sweep_predicate_matches(Sub, [String|_]) :-
     sub_string(String, _, _, _, Sub).
 
 sweep_predicate_non_hidden([String|_]) :-
-    \+ sub_string(String, 0, _, _, "$").
+    \+ sub_string(String, _, _, _, ":'$").
 
 sweep_predicate_description(M:F/N, [S|T]) :-
-    sweep_predicate_description_(M, F, N, T), format(string(S), '~w:~w/~w', 
[M, F, N]).
+    sweep_predicate_description_(M, F, N, T),
+    format(string(S),
+           '~w:~W/~w',
+           [M, F, [quoted(true), character_escapes(true)], N]).
 
 sweep_predicate_description_(M, F, N, [D]) :-
     doc_comment(M:F/N, _, D0, _), !, atom_string(D0, D).