emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/sweeprolog 6cc8391edd: * (sweeprolog-indent-or-forward-hol


From: ELPA Syncer
Subject: [nongnu] elpa/sweeprolog 6cc8391edd: * (sweeprolog-indent-or-forward-hole): simplify
Date: Mon, 12 Dec 2022 13:59:43 -0500 (EST)

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

    * (sweeprolog-indent-or-forward-hole): simplify
---
 sweeprolog.el | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index beeb080e8d..2981dd3a5b 100644
--- 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)))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]