[nongnu] elpa/sweeprolog 50f7d6f9eb 2/4: Use a few more hook functions also in top-level buffers

[ELPA Syncer]

branch: elpa/sweeprolog
commit 50f7d6f9ebc54e5a846b743a92d4aac06a31d1a0
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    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)