From 52b1f46bbbf50f5223347296d362fb4ed86adc62 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sat, 7 Oct 2023 14:30:11 +0200 Subject: [PATCH] ; Remove unused function 'sweeprolog-token-boundaries' --- sweeprolog.el | 30 ------------------------------ 1 file changed, 30 deletions(-) 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 -- 2.39.5