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

[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



reply via email to

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