From c1cf491c117c84230b1761a3d78ef98fe6273072 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 14 Nov 2023 09:47:15 +0100 Subject: [PATCH] Narrow to current query for top-level completion at point * sweeprolog.el (sweeprolog-top-level-completion-at-point): New function. (sweeprolog-top-level-mode): Use it. --- sweeprolog.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/sweeprolog.el b/sweeprolog.el index 73dbb0d..00822e3 100644 --- a/sweeprolog.el +++ b/sweeprolog.el @@ -3596,6 +3596,12 @@ GOAL. Otherwise, GOAL is set to a default value specified by sweeprolog-top-level-signal-default-goal))) (sweeprolog-signal-thread sweeprolog-top-level-thread-id goal)) +(defun sweeprolog-top-level-completion-at-point () + "Call `sweeprolog-completion-at-point' while narrowing to current query." + (when-let ((prompt-beg (car comint-last-prompt))) + (with-restriction prompt-beg (point-max) + (sweeprolog-completion-at-point)))) + ;;;###autoload (define-derived-mode sweeprolog-top-level-mode comint-mode "Sweep Top-level" "Major mode for interacting with an inferior Prolog interpreter." @@ -3610,7 +3616,7 @@ GOAL. Otherwise, GOAL is set to a default value specified by comint-highlight-input nil comment-start "%") (add-hook 'post-self-insert-hook #'sweeprolog-top-level--post-self-insert-function nil t) - (add-hook 'completion-at-point-functions #'sweeprolog-completion-at-point nil t) + (add-hook 'completion-at-point-functions #'sweeprolog-top-level-completion-at-point nil t) (add-hook 'after-change-functions #'sweeprolog-colourise-query nil t) (add-hook 'xref-backend-functions #'sweeprolog--xref-backend nil t) (when (and (member sweeprolog-faces-style '(light dark)) -- 2.39.2