diff options
| -rw-r--r-- | chess-pgn.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/chess-pgn.el b/chess-pgn.el index 6417c26..4ccdb64 100644 --- a/chess-pgn.el +++ b/chess-pgn.el @@ -97,7 +97,8 @@ Optionally use the supplied STRING instead of the current buffer." (chess-game-set-tags game nil) (while (looking-at "\\[\\(\\S-+\\)\\s-+\\(\".*?\"\\)\\][ \t\n\r]+") (chess-game-set-tag game (match-string-no-properties 1) - (read (match-string-no-properties 2))) + (let ((str (match-string-no-properties 2))) + (substring str 0 (1- (length str))))) (goto-char (match-end 0))) (let ((fen (chess-game-tag game "FEN"))) (if fen |