From 7e960384fa89c02c2fc2be1f61fe18645f8a13fe Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sat, 13 Apr 2002 11:13:33 +0000 Subject: added message catalog support --- chess.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'chess.el') diff --git a/chess.el b/chess.el index 26ec076..b79bab5 100644 --- a/chess.el +++ b/chess.el @@ -111,6 +111,9 @@ minibuffer, which works well for Emacspeak users." :type 'string :group 'chess) +(chess-message-catalog 'english + '((no-images-fallback . "Could not find suitable chess images; using ics1 display"))) + ;;;###autoload (defun chess (&optional engine disable-popup engine-response-handler &rest engine-ctor-args) @@ -135,7 +138,7 @@ minibuffer, which works well for Emacspeak users." (when (and (eq chess-default-display 'chess-images) (with-current-buffer display (null chess-images-size))) - (message "Could not find suitable chess images; using ics1 display") + (chess-message 'no-images-fallback) (chess-display-destroy display) (require 'chess-ics1) (setq display (chess-display-create game 'chess-ics1 my-color))) @@ -155,7 +158,8 @@ minibuffer, which works well for Emacspeak users." ;; let them know we're ready to begin (chess-engine-command engine 'ready)) - (when chess-announce-moves + (when (and (not (eq engine-module 'chess-none)) + chess-announce-moves) (if (and (not (eq chess-announce-moves t)) (symbolp chess-announce-moves)) (let ((name (symbol-name chess-announce-moves))) -- cgit v1.2.3