branch: elpa/sweeprolog
commit 0de5109bf8293b08af32096382eff759add6bec2
Author: Eshel Yaron <m...@eshelyaron.com>
Commit: Eshel Yaron <m...@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:
