From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 7 Oct 2023 12:30:11 +0000 (+0200)
Subject: ; Remove unused function 'sweeprolog-token-boundaries'
X-Git-Tag: V9.1.16-sweep-0.25.3~5
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=52b1f46bbbf50f5223347296d362fb4ed86adc62;p=sweep.git

; Remove unused function 'sweeprolog-token-boundaries'
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 4370252..1b20221 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