From daa3d1cad1b0be5390bdd570d4c35b45bec13ccd Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 9 Apr 2002 00:09:42 +0000 Subject: *** no comment *** --- chess-display.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'chess-display.el') diff --git a/chess-display.el b/chess-display.el index 7c488d6..0d53548 100644 --- a/chess-display.el +++ b/chess-display.el @@ -261,15 +261,18 @@ If only START is given, it must be in algebraic move notation." (setq chess-display-position (chess-ply-next-pos ply)))) (chess-display-update nil))) -(defun chess-display-highlight (display index &optional mode) +(defun chess-display-highlight (display &rest args) "Highlight the square at INDEX on the current position. The given highlighting MODE is used, or the default if the style you are displaying with doesn't support that mode. `selected' is a mode that is supported by most displays, and is the default mode." (chess-with-current-buffer display (if chess-display-highlight-function - (funcall chess-display-highlight-function index - (or mode 'selected))))) + (let ((mode :selected)) + (dolist (arg args) + (if (symbolp arg) + (setq mode arg) + (funcall chess-display-highlight-function arg mode))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; -- cgit v1.2.3