[elpa] 01/01: Fix FEN insertion.

[Mario Lang]

mlang pushed a commit to branch externals/chess
in repository elpa.

commit a1ec01c9704a65561f61c4c35c799caa05fe498b
Author: Mario Lang <address@hidden>
Date:   Tue Sep 23 12:23:20 2014 +0200

    Fix FEN insertion.
---
 ChangeLog        |    4 ++++
 chess-display.el |    7 ++++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 308c3e6..7a1d31c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2014-09-23  Mario Lang  <address@hidden>
+
+       * chess-display.el (chess-display-yank-board): Fix FEN insertion.
+
 2014-07-28  Mario Lang  <address@hidden>
 
        * chess-display.el (chess-display-draw-square): Add docstring.
diff --git a/chess-display.el b/chess-display.el
index f7238d2..8820383 100644
--- a/chess-display.el
+++ b/chess-display.el
@@ -753,14 +753,15 @@ The key bindings available in this mode are:
       (cond
        ((search-forward "[Event " nil t)
        (goto-char (match-beginning 0))
-       (chess-game-copy-game chess-module-game (chess-pgn-to-game)))
+       (chess-game-copy-game display (chess-pgn-to-game)))
        ((looking-at (concat chess-algebraic-regexp "$"))
        (let ((move (buffer-string)))
          (with-current-buffer display
            (chess-display-manual-move move))))
        (t
-       (with-current-buffer display
-         (chess-display-set-from-fen (buffer-string))))))))
+       (let ((fen (buffer-string)))
+         (with-current-buffer display
+           (chess-display-set-from-fen fen))))))))
 
 (defvar chess-display-search-map
   (let ((map (copy-keymap minibuffer-local-map)))