Off by one error in string clipping of tag values.

diff --git a/chess-pgn.el b/chess-pgn.el
index 4ccdb643e0141172e327b366d8a79564fc4fa0d4..5b1b9773247febbb9fecf3e0409749d2875e558e 100644 (file)
--- a/chess-pgn.el
+++ b/chess-pgn.el
@@ -98,7 +98,7 @@ Optionally use the supplied STRING instead of the current buffer."
        (while (looking-at "\\[\\(\\S-+\\)\\s-+\\(\".*?\"\\)\\][ \t\n\r]+")
          (chess-game-set-tag game (match-string-no-properties 1)
                              (let ((str (match-string-no-properties 2)))
-                               (substring str 0 (1- (length str)))))
+                               (substring str 1 (1- (length str)))))
          (goto-char (match-end 0)))
        (let ((fen (chess-game-tag game "FEN")))
          (if fen