[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/sweeprolog 52b1f46bbb 4/9: ; Remove unused function 'sweep
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/sweeprolog 52b1f46bbb 4/9: ; Remove unused function 'sweeprolog-token-boundaries' |
Date: |
Sat, 7 Oct 2023 10:01:39 -0400 (EDT) |
branch: elpa/sweeprolog
commit 52b1f46bbbf50f5223347296d362fb4ed86adc62
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>
; Remove unused function 'sweeprolog-token-boundaries'
---
sweeprolog.el | 30 ------------------------------
1 file changed, 30 deletions(-)
diff --git a/sweeprolog.el b/sweeprolog.el
index 4370252d08..1b20221878 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -4215,36 +4215,6 @@ work."
(sweeprolog-read-predicate-documentation mod fun ari neck)))
(_ (user-error "No predicate found at point"))))
-(defun sweeprolog-token-boundaries (&optional pos)
- (let ((point (or pos (point))))
- (save-excursion
- (goto-char point)
- (unless (eobp)
- (let ((beg (point))
- (syn (char-syntax (char-after))))
- (cond
- ((or (= syn ?w) (= syn ?_))
- (skip-syntax-forward "w_")
- (if (= (char-syntax (char-after)) ?\()
- (progn
- (forward-char)
- (list 'functor beg (point)))
- (list 'symbol beg (point))))
- ((= syn ?\")
- (forward-char)
- (while (and (not (eobp)) (nth 3 (syntax-ppss)))
- (forward-char))
- (list 'string beg (point)))
- ((= syn ?.)
- (skip-syntax-forward ".")
- (list 'operator beg (point)))
- ((= syn ?\()
- (list 'open beg (point)))
- ((= syn ?\))
- (list 'close beg (point)))
- ((= syn ?>) nil)
- (t (list 'else beg (point)))))))))
-
(defun sweeprolog-next-token-boundaries (&optional pos)
(let ((point (or pos (point))))
(save-excursion
- [nongnu] elpa/sweeprolog updated (0dd67eba55 -> 6431074ee1), ELPA Syncer, 2023/10/07
- [nongnu] elpa/sweeprolog ebd42adc30 1/9: ; Recognize ext-quantified goal positions as callable, ELPA Syncer, 2023/10/07
- [nongnu] elpa/sweeprolog 38d1326fee 2/9: ; Fix precedence calculation for unary operator arguments, ELPA Syncer, 2023/10/07
- [nongnu] elpa/sweeprolog 52b1f46bbb 4/9: ; Remove unused function 'sweeprolog-token-boundaries',
ELPA Syncer <=
- [nongnu] elpa/sweeprolog abcafbc720 5/9: ; * sweeprolog.el (sweeprolog-query-replace-term): Update comment, ELPA Syncer, 2023/10/07
- [nongnu] elpa/sweeprolog 2bca5fbdc2 6/9: ; Improve user option docstring, ELPA Syncer, 2023/10/07
- [nongnu] elpa/sweeprolog 6431074ee1 9/9: Announce recent changes in NEWS.org and bump version to 0.25.3, ELPA Syncer, 2023/10/07
- [nongnu] elpa/sweeprolog 622c914dfd 3/9: ; New helper predicate 'pos_bounds/3', ELPA Syncer, 2023/10/07
- [nongnu] elpa/sweeprolog 6a9bfd3651 7/9: ENHANCED: Improve 'sweeprolog-extract-region-to-predicate', ELPA Syncer, 2023/10/07
- [nongnu] elpa/sweeprolog 6c1017d637 8/9: ; Fix excluding new predicate body from replacement after extraction, ELPA Syncer, 2023/10/07