diff options
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 16 |
1 files changed, 8 insertions, 8 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 |