diff options
| -rw-r--r-- | chess-pgn.el | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/chess-pgn.el b/chess-pgn.el index c720ecf..ca52e46 100644 --- a/chess-pgn.el +++ b/chess-pgn.el @@ -134,6 +134,16 @@ If INDENTED is non-nil, indent the move texts." (buffer-string)) (chess-insert-pgn game indented))) +(defun chess-member-index (tag) + (let ((index 0) + (tags chess-pgn-tag-order)) + (while tags + (if (equal tag (car tags)) + (setq tags nil) + (setq index (1+ index) + tags (cdr tags)))) + index)) + (defun chess-insert-pgn (game &optional indented) (let ((fen (chess-game-tag game "FEN")) (first-pos (chess-game-pos game 0))) @@ -147,10 +157,8 @@ If INDENTED is non-nil, indent the move texts." (function (lambda (left right) (setq left (car left) right (car right)) - (let ((l-idx (position left chess-pgn-tag-order - :test 'equal)) - (r-idx (position right chess-pgn-tag-order - :test 'equal))) + (let ((l-idx (chess-member-index left)) + (r-idx (chess-member-index right))) (cond ((and l-idx (not r-idx)) t) ((and (not l-idx) r-idx) nil) |