[nongnu] elpa/sweeprolog 0de5109bf8 064/166: ENHANCED: add completion-at-point in sweep-mode

[ELPA Syncer]

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

    ENHANCED: add completion-at-point in sweep-mode
---
 sweep.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/sweep.el b/sweep.el
index 16ce920f17..b522dd1c1f 100644
--- a/sweep.el
+++ b/sweep.el
@@ -127,7 +127,7 @@
 
 (defvar sweep-predicate-completion-collection nil)
 
-(defvar-local sweep-buffer-module nil)
+(defvar-local sweep-buffer-module "user")
 
 (defun sweep-local-predicates-collection (&optional prefix)
   (sweep-open-query "user" "sweep" "sweep_local_predicate_completion"
@@ -979,7 +979,8 @@ Interactively, a prefix arg means to prompt for BUFFER."
                 nil
                 (font-lock-fontify-region-function . 
sweep-colourise-some-terms)))
   (sweep-colourise-buffer)
-  (sweep--set-buffer-module))
+  (sweep--set-buffer-module)
+  (add-hook 'completion-at-point-functions 
#'sweep-completion-at-point-function nil t))
 
 ;;;; Testing: