* (sweeprolog-indent-or-forward-hole): simplify

diff --git a/sweeprolog.el b/sweeprolog.el
index beeb080e8d66ef0a3e92135219d6a92cb318c5e3..2981dd3a5ba81cf473dc1aa480b8d80e3a2f998f 100644 (file)
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -4231,15 +4231,8 @@ to the ARGth next hole in the buffer."
   (interactive "p" sweeprolog-mode)
   (if (use-region-p)
       (indent-region (region-beginning) (region-end))
-    (let ((point (point))
-          (tab-always-indent 'complete)
-          (completion-at-point-functions nil))
-      (unless (save-excursion
-                (beginning-of-line)
-                (or (sweeprolog-at-beginning-of-top-term-p)
-                    (looking-at-p "[ \t]*$")
-                    (looking-at-p (rx (or "%" "/*")))))
-        (indent-for-tab-command))
+    (let ((point (point)))
+      (sweeprolog-indent-line)
       (when (= point (point))
         (sweeprolog-forward-hole arg)))))