[nongnu] elpa/sweeprolog 85ca3a5dc2 067/166: FIXED: bind SourceId in xref based completions

[ELPA Syncer]

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

    FIXED: bind SourceId in xref based completions
---
 sweep.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/sweep.pl b/sweep.pl
index a8e53b6aba..a9836c6633 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -213,7 +213,8 @@ sweep_local_predicate_completion([Mod|Sub], Preds) :-
             Preds0,
             Tail),
     findall(XF/XN,
-            (   xref_defined(SourceId, H, _),
+            (   xref_module(SourceId, M),
+                xref_defined(SourceId, H, _),
                 H \= _:_,
                 pi_head(XF/XN, H)
             ),
@@ -332,7 +333,7 @@ sweep_color_normalized_(Offset, syntax_error, 
[Message0,Start0-End0|_], ["syntax
     Start is Start0 + Offset,
     End   is End0   + Offset,
     atom_string(Message0, Message).
-sweep_color_normalized_(Offset, comment, [Kind0|_], ["comment"|Kind]) :-
+sweep_color_normalized_(_, comment, [Kind0|_], ["comment"|Kind]) :-
     !,
     atom_string(Kind0, Kind).
 sweep_color_normalized_(_, Nom0, _, Nom) :-