diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-03 02:11:46 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-03 02:11:46 +0000 |
| commit | bc1b6e4f3789f4401ac5fe9bb9708459648345b0 (patch) | |
| tree | 61016ff5f23823fe740c16755ebf800cc6d6bb9b /chess-display.el | |
| parent | f4e9c77bc700222590ada4799c619152354244f2 (diff) | |
More work to get engines working.
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/chess-display.el b/chess-display.el index 58658ec..4e18130 100644 --- a/chess-display.el +++ b/chess-display.el @@ -57,6 +57,7 @@ (defvar chess-display-perspective) (defvar chess-display-draw-function nil) (defvar chess-display-highlight-function nil) +(defvar chess-display-edit-mode nil) (defvar chess-display-mode-line "") (make-variable-buffer-local 'chess-display-session) @@ -69,6 +70,7 @@ (make-variable-buffer-local 'chess-display-perspective) (make-variable-buffer-local 'chess-display-draw-function) (make-variable-buffer-local 'chess-display-highlight-function) +(make-variable-buffer-local 'chess-display-edit-mode) (make-variable-buffer-local 'chess-display-mode-line) (defmacro chess-with-current-buffer (buffer &rest body) @@ -80,9 +82,12 @@ (defun chess-display-create (style perspective &optional session search-func) "Create a chess display, for displaying chess objects." - (let ((draw (intern-soft (concat (symbol-name style) "-draw"))) - (highlight (intern-soft (concat (symbol-name style) "-highlight"))) - (initialize (intern-soft (concat (symbol-name style) "-initialize")))) + (let* ((name (symbol-name style)) + (draw (intern-soft (concat name "-draw"))) + (highlight (intern-soft (concat name "-highlight"))) + (initialize (intern-soft (concat name "-initialize")))) + (unless initialize + (error "There is no known chessboard display style '%s'" name)) (with-current-buffer (generate-new-buffer "*Chessboard*") (setq cursor-type nil chess-display-session session @@ -277,7 +282,9 @@ If only START is given, it must be in algebraic move notation." ;; game, or alter the game, just as SCID allows (unless (= (chess-display-index nil) (chess-game-index chess-display-game)) - (error "Cannot move partway in a game")) + (error "Cannot move partway in game (index %d != game index %d)" + (chess-display-index nil) + (chess-game-index chess-display-game))) (chess-game-move chess-display-game ply)) (chess-display-variation (nconc chess-display-variation (list ply))) @@ -429,7 +436,7 @@ that game (i.e., not editing the position, or reviewing an earlier position within the game)." (and chess-display-session chess-display-game - (= (chess-display index nil) + (= (chess-display-index nil) (chess-game-index chess-display-game)) (not chess-display-edit-mode))) |