From 50f7d6f9ebc54e5a846b743a92d4aac06a31d1a0 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 26 Nov 2023 11:47:15 +0100 Subject: [PATCH] Use a few more hook functions also in top-level buffers * sweeprolog.el (sweeprolog-top-level-mode): Set 'forward-sexp-function', 'beginning-of-defun-function', 'end-of-defun-function' and 'syntax-propertize-function' hooks to their Prolog-specific value that we already use in 'sweeprolog-mode'. --- sweeprolog.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/sweeprolog.el b/sweeprolog.el index 4f122da..50eff18 100644 --- a/sweeprolog.el +++ b/sweeprolog.el @@ -3658,7 +3658,11 @@ GOAL. Otherwise, GOAL is set to a default value specified by (length s))) comint-delimiter-argument-list '(?,) comint-highlight-input nil - comment-start "%") + comment-start "%" + forward-sexp-function #'sweeprolog-forward-sexp-function + beginning-of-defun-function #'sweeprolog-beginning-of-top-term + end-of-defun-function #'sweeprolog-end-of-top-term + syntax-propertize-function sweeprolog-syntax-propertize-function) (add-hook 'post-self-insert-hook #'sweeprolog-top-level--post-self-insert-function 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) -- 2.39.5