Instead of using `read' to parse a PGN tag string, just clip off the leading

and trailing quotes.

diff --git a/chess-pgn.el b/chess-pgn.el
index 6417c26afb27d958f767960c2d437e387495031f..4ccdb643e0141172e327b366d8a79564fc4fa0d4 100644 (file)
--- 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