From 0de5109bf8293b08af32096382eff759add6bec2 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 4 Sep 2022 22:59:15 +0300 Subject: [PATCH] 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 16ce920..b522dd1 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: -- 2.39.2