From d5e9f0a3c531104936728c5a599dde77c67319b0 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Sun, 14 Apr 2002 19:52:56 +0000
Subject: *** no comment ***

---
 chess-images.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'chess-images.el')

diff --git a/chess-images.el b/chess-images.el
index d8dfba9..d2e2256 100644
--- a/chess-images.el
+++ b/chess-images.el
@@ -151,10 +151,18 @@ called."
     (?p "pawn"   5))
   "The names and index values of the different pieces.")
 
+(chess-message-catalog 'english
+  '((no-images-fallback . "Could not find suitable chess images; using ics1 display")))
+
 (defun chess-images-handler (event &rest args)
   (cond
    ((eq event 'initialize)
-    (chess-images-initialize))
+    (when (display-graphic-p)
+      (chess-images-initialize)
+      (if chess-images-size
+	  t
+	(chess-message 'no-images-fallback)
+	nil)))
    ((eq event 'popup)
     (if chess-display-popup
 	(funcall chess-images-popup-function)))
-- 
cgit v1.2.3