diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-10 01:21:36 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-10 01:21:36 +0000 |
| commit | 1531a6902ff493adce1d2fe29dfcddcfa9de0ef0 (patch) | |
| tree | 88ff84536618d92b591511395c06794c619275bf | |
| parent | 0bad9bdd7634f039d5a30cfb19b100bbfe54d18e (diff) | |
*** no comment ***
| -rw-r--r-- | chess-display.el | 16 | ||||
| -rw-r--r-- | chess-engine.el | 2 | ||||
| -rw-r--r-- | chess-images.el | 10 |
3 files changed, 11 insertions, 17 deletions
diff --git a/chess-display.el b/chess-display.el index 92f25c7..4fe35de 100644 --- a/chess-display.el +++ b/chess-display.el @@ -112,14 +112,6 @@ (chess-display-update new-display t) new-display)) -(defun chess-display-destroy (display) - "Destroy a chess display object, killing all of its buffers." - (let ((buf (or display (current-buffer)))) - (when (buffer-live-p buf) - (chess-display-event-handler (chess-display-game nil) - buf 'destroy) - (kill-buffer buf)))) - (defsubst chess-display-style (display) (chess-with-current-buffer display chess-display-style)) @@ -328,6 +320,14 @@ that is supported by most displays, and is the default mode." (chess-with-current-buffer display (setq chess-display-no-popup t))) +(defun chess-display-destroy (display) + "Destroy a chess display object, killing all of its buffers." + (let ((buf (or display (current-buffer)))) + (when (buffer-live-p buf) + (chess-display-event-handler (chess-display-game nil) + buf 'destroy) + (kill-buffer buf)))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; Event handler diff --git a/chess-engine.el b/chess-engine.el index b4249fe..0644ed2 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -81,7 +81,7 @@ ((eq event 'pass) (if (and (chess-game-get-data (chess-engine-game nil) 'active) - (= (chess-game-index game) 0)) + (= (chess-game-index (chess-engine-game nil)) 0)) (message "Your opponent has passed the first move to you")) t) diff --git a/chess-images.el b/chess-images.el index 6a202d5..3c7bae0 100644 --- a/chess-images.el +++ b/chess-images.el @@ -280,14 +280,8 @@ Common modes are: (setq chess-images-size (car sizes) chess-images-cache nil sizes nil) - (chess-images-draw) - (if chess-images-separate-frame - (let* ((size (float (+ (* (or chess-images-border-width 0) 8) - (* chess-images-size 8)))) - (max-char-height (ceiling (/ size (frame-char-height)))) - (max-char-width (ceiling (/ size (frame-char-width))))) - (set-frame-size (selected-frame) max-char-width - (+ max-char-height 2))))) + ;; jww (2002-04-09): need to create a new frame here! + (chess-display-update nil)) (setq sizes (cdr sizes)))))) (defun chess-images-increase-size () |