diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-08 04:31:50 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-08 04:31:50 +0000 |
| commit | 9de220869f323ac605711169365e8135f7a094c3 (patch) | |
| tree | 9b63646a6a19a3c6a591c70a282afb67c71471f4 /chess-display.el | |
| parent | fe851e20e7c1a4f7da6478d1afebb5faa8dcc72d (diff) | |
Bug fixes to the ics1 display
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/chess-display.el b/chess-display.el index 6d65fa3..e682861 100644 --- a/chess-display.el +++ b/chess-display.el @@ -85,8 +85,7 @@ (unless draw (error "There is no known chessboard display style '%s'" name)) (with-current-buffer (generate-new-buffer "*Chessboard*") - (setq cursor-type nil - chess-display-draw-function draw + (setq chess-display-draw-function draw chess-display-highlight-function highlight chess-display-perspective perspective) (chess-display-mode) @@ -514,8 +513,7 @@ to the end or beginning." (defun chess-display-edit-board () "Setup the current board for editing." (interactive) - (setq cursor-type t - chess-display-edit-mode t) + (setq chess-display-edit-mode t) ;; Take us out of any game/ply/variation we might be looking at, ;; since we are not moving pieces now, but rather placing them -- ;; for which purpose the movement keys can still be used. @@ -530,15 +528,13 @@ to the end or beginning." (chess-game-set-plies chess-display-game (list (chess-ply-create (chess-display-position nil))))) - (setq cursor-type nil - chess-display-edit-mode nil)) + (setq chess-display-edit-mode nil)) (defun chess-display-restore-board () "Setup the current board for editing." (interactive) - (setq cursor-type nil - chess-display-edit-mode nil) ;; jww (2002-03-28): NYI + (setq chess-display-edit-mode nil) (chess-display-update nil)) (defun chess-display-clear-board () |