diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-14 23:17:48 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-14 23:17:48 +0000 |
| commit | 4f7271d9ea4f82eb316b05a54bac9030d1127c8e (patch) | |
| tree | 2bc9aca9e184f57a83ee74a68c97aca261cbc7c2 /chess-display.el | |
| parent | db5b94f367aebaeb019b46b2e2feb9f366d5d964 (diff) | |
*** no comment ***
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/chess-display.el b/chess-display.el index 768ed72..76a2fa6 100644 --- a/chess-display.el +++ b/chess-display.el @@ -82,7 +82,8 @@ makes moves, or any other changes to the underlying game." (setq buffer (current-buffer)) (chess-display-mode read-only) (if (null (setq buffer (funcall handler 'initialize))) - (kill-buffer buffer) + (ignore + (kill-buffer buffer)) (add-hook 'kill-buffer-hook 'chess-display-quit nil t) (setq chess-display-style style chess-display-perspective perspective @@ -193,10 +194,11 @@ This is the function to call to cause a display to view a game. It will also update all of the listening engines and other displays to also view the same game." (chess-with-current-buffer display - (setq chess-display-index (or index (chess-game-index game))) (chess-game-set-tags chess-display-game (chess-game-tags game)) ;; this call triggers `setup-game' for us - (chess-game-set-plies chess-display-game (chess-game-plies game)))) + (let ((chess-game-inhibit-events t)) + (chess-game-set-plies chess-display-game (chess-game-plies game))) + (chess-display-set-index nil (or index (chess-game-index game))))) (defun chess-display-detach-game (display) "Set the display game. |