From 9fda7da35a761c82922600d36a48ae626842f89c Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 1 Sep 2008 21:00:58 -0400 Subject: Off by one error in string clipping of tag values. --- chess-pgn.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/chess-pgn.el b/chess-pgn.el index 4ccdb64..5b1b977 100644 --- 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 -- cgit v1.2.3