[elpa] 106/255: sgf: go-labels shouldn't increment the index

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit a6a976a63401c04bdea082170fbd0be253d501a9
Author: Eric Schulte <address@hidden>
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"))))