diff options
| -rw-r--r-- | chess-engine.el | 12 | ||||
| -rw-r--r-- | chess-link.el | 3 |
2 files changed, 9 insertions, 6 deletions
diff --git a/chess-engine.el b/chess-engine.el index 0c0afb4..ba85444 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -61,17 +61,19 @@ (setq chess-engine-position (chess-ply-next-pos ply))))) (defsubst chess-engine-convert-algebraic (move) - (or (chess-algebraic-to-ply (chess-engine-position nil) - move) - (message "Received invalid move string: %s" move))) + (or (chess-algebraic-to-ply (chess-engine-position nil) move) + (ignore + (message "Received invalid move string: %s" move)))) (defsubst chess-engine-convert-fen (fen) (or (chess-fen-to-pos fen) - (message "Received invalid FEN string: %s" fen))) + (ignore + (message "Received invalid FEN string: %s" fen)))) (defsubst chess-engine-convert-pgn (pgn) (or (chess-pgn-to-game pgn) - (message "Received invalid PGN text"))) + (ignore + (message "Received invalid PGN text")))) (defun chess-engine-default-handler (event &rest args) (let ((chess-engine-handling-event t) diff --git a/chess-link.el b/chess-link.el index 9bcb7a7..13a9911 100644 --- a/chess-link.el +++ b/chess-link.el @@ -68,7 +68,8 @@ engine, and the computer the second engine." ;; tell the first engine to start moving (chess-engine-command first-engine 'pass)) - (chess-display-update display t)) + (chess-display-update display) + (chess-display-popup display)) (error (chess-display-destroy display) (error (error-message-string err)))))) |