diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-09 00:09:42 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-09 00:09:42 +0000 |
| commit | daa3d1cad1b0be5390bdd570d4c35b45bec13ccd (patch) | |
| tree | cc8088ea7b2d8bc9040e373d8f5474198e55886e /chess-display.el | |
| parent | 244bfdc122b7427b3f3f96bef00415e579aff67d (diff) | |
*** no comment ***
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 9 |
1 files changed, 6 insertions, 3 deletions
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))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; |