From 1531a6902ff493adce1d2fe29dfcddcfa9de0ef0 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 10 Apr 2002 01:21:36 +0000 Subject: *** no comment *** --- chess-display.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'chess-display.el') 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 -- cgit v1.2.3