branch: elpa/sweeprolog
commit 50f7d6f9ebc54e5a846b743a92d4aac06a31d1a0
Author: Eshel Yaron <[email protected]>
Commit: Eshel Yaron <[email protected]>
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 4f122da31b..50eff18cf2 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)
