diff options
| author | John Wiegley <johnw@newartisans.com> | 2008-09-01 03:47:56 -0400 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2008-09-01 05:05:20 -0400 |
| commit | 41da77873eeccaa3b7fce2e1b1b0e2420552ed5d (patch) | |
| tree | d9603eaa179dafb6522e954f45c12efe38b594fa /chess-pgn.el | |
| parent | 733d0c3163a0438c06f0c902734f0bb439e9def6 (diff) | |
Instead of using `read' to parse a PGN tag string, just clip off the leading
and trailing quotes.
Diffstat (limited to 'chess-pgn.el')
| -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 |