From c3f24aabda7fdefd4672367641aae1a80789a8f2 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 3 Apr 2002 20:57:43 +0000 Subject: *** no comment *** --- chess-display.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'chess-display.el') diff --git a/chess-display.el b/chess-display.el index 526d8ca..5f11e56 100644 --- a/chess-display.el +++ b/chess-display.el @@ -86,7 +86,7 @@ (draw (intern-soft (concat name "-draw"))) (highlight (intern-soft (concat name "-highlight"))) (initialize (intern-soft (concat name "-initialize")))) - (unless initialize + (unless draw (error "There is no known chessboard display style '%s'" name)) (with-current-buffer (generate-new-buffer "*Chessboard*") (setq cursor-type nil @@ -96,7 +96,8 @@ chess-display-perspective perspective chess-display-search-function search-func) (chess-display-mode) - (funcall initialize) + (if initialize + (funcall initialize)) (if session (let ((game (chess-session-data session 'current-game))) (if game -- cgit v1.2.3