eschulte pushed a commit to branch go
in repository elpa.
commit a6a976a63401c04bdea082170fbd0be253d501a9
Author: Eric Schulte <eric.schu...@gmx.com>
Date: Sun May 27 15:22:17 2012 -0600
sgf: go-labels shouldn't increment the index
---
go-sgf.el | 3 +--
1 files changed, 1 insertions(+), 2 deletions(-)
diff --git a/go-sgf.el b/go-sgf.el
index db13ad5..ab632bd 100644
--- a/go-sgf.el
+++ b/go-sgf.el
@@ -127,10 +127,9 @@
(rpush (list move) (go-sgf-ref (self sgf) (butlast (index sgf))))))
(defmethod go-labels ((sgf sgf))
- (next sgf)
(let ((turn (current sgf)))
(if turn
- (remove-if (lambda (pair) (member (car pair) '(:B :W))) turn)
+ (remove-if-not (lambda (pair) (member (car pair) '(:LB :LW))) turn)
(prev sgf)
(error "sgf: no more moves"))))
