[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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/sweeprolog 6cc8391edd: * (sweeprolog-indent-or-forward-hole): simplify,
ELPA Syncer <=