branch: master
commit 03d2b0087e553db136cbbf4b2546d76f6f3ed5c7
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
* arbitools/arbitools.el: Remove unused vars
* arbitools.el (arbitools-calculate-standings, arbitools-delete-player)
(arbitools-calculate-standings): Remove unused vars.
---
packages/arbitools/arbitools.el | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/packages/arbitools/arbitools.el b/packages/arbitools/arbitools.el
index 76fe0bc..8c43e78 100644
--- a/packages/arbitools/arbitools.el
+++ b/packages/arbitools/arbitools.el
@@ -273,7 +273,6 @@
(interactive)
(save-excursion
(let ( (numberofrounds (arbitools-number-of-rounds))
- (pointsstring "")
(points 0.0)
(pointstosum 0.0)
(roundcount 1))
@@ -284,7 +283,7 @@
(while (<= roundcount numberofrounds)
(beginning-of-line)
(forward-char (+ 98 (* (- roundcount 1) 10))) ;; go to where the
result is for each round
- (setq pointsstring (thing-at-point 'symbol))
+ ;; FIXME: Use pcase?
(cond ((string= (thing-at-point 'symbol) "1") (setq pointstosum 1.0))
((string= (thing-at-point 'symbol) "+") (setq pointstosum 1.0))
((string= (thing-at-point 'symbol) "=") (setq pointstosum 0.5))
@@ -310,7 +309,7 @@
(let ((datachunk ""))
(goto-char (point-min))
(while (re-search-forward "^001" nil t)
- (let* ((linestring (thing-at-point 'line)))
+ (let* () ;; (linestring (thing-at-point 'line))
(beginning-of-line)
(forward-char 89) ;; get the POS field
(setq datachunk (thing-at-point 'word))
@@ -411,7 +410,6 @@
(save-excursion
(while (re-search-forward "^013" nil t)
(let* ((linestringteam (thing-at-point 'line))
- (actualintegrant (string-to-number (substring
linestringteam 40 44)))
(integrantcount 0)
(members 0))
