* (sweeprolog-at-beginning-of-top-term-p): handle comments

diff --git a/sweeprolog.el b/sweeprolog.el
index f98e947417c145171ea91ded4c62e117cf4e63c9..b514c5be741d8d622e5be4693d9af451f2b3348a 100644 (file)
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -2629,7 +2629,8 @@ of them signal success by returning non-nil."
 
 (defun sweeprolog-at-beginning-of-top-term-p ()
   (and (looking-at-p (rx bol graph))
-       (not (nth 8 (syntax-ppss)))))
+       (not (nth 8 (syntax-ppss)))
+       (not (looking-at-p (rx bol (or "%" "/*"))))))
 
 (defun sweeprolog-analyze-term-at-point (cb)
   (add-hook 'sweeprolog-analyze-region-fragment-hook cb nil t)