diff options
Diffstat (limited to 'chess-pgn.el')
| -rw-r--r-- | chess-pgn.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/chess-pgn.el b/chess-pgn.el index 339b6f0..af212c5 100644 --- a/chess-pgn.el +++ b/chess-pgn.el @@ -136,12 +136,12 @@ If INDENTED is non-nil, indent the move texts." (defun chess-insert-pgn (game &optional indented) (let ((fen (chess-game-tag game "FEN")) - (first-pos (chess-ply-pos (chess-game-ply game 0)))) - (when (and fen (not (equal fen (chess-pos-to-fen first-pos)))) + (first-pos (chess-game-pos game 0))) + (when (and fen (not (string= fen (chess-pos-to-fen first-pos)))) (chess-game-del-tag game "FEN") (setq fen nil)) (if (and (not fen) - (not (equal chess-starting-position first-pos))) + (not (eq chess-starting-position first-pos))) (chess-game-set-tag game "FEN" (chess-pos-to-fen first-pos)))) (dolist (tag (sort (copy-alist (chess-game-tags game)) (function |