From 41da77873eeccaa3b7fce2e1b1b0e2420552ed5d Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 1 Sep 2008 03:47:56 -0400 Subject: Instead of using `read' to parse a PGN tag string, just clip off the leading and trailing quotes. --- chess-pgn.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'chess-pgn.el') 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 -- cgit v1.2.3