From 53db61f897996d73ecef4f4d0b8dda44f05f14cf Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sat, 13 Apr 2002 08:58:47 +0000 Subject: added support for highlighting legal plies --- chess-images.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'chess-images.el') diff --git a/chess-images.el b/chess-images.el index 5ab618d..ff90c49 100644 --- a/chess-images.el +++ b/chess-images.el @@ -260,9 +260,15 @@ Common modes are: (point))) (highlight (copy-alist (get-text-property pos 'display)))) (setcar (last highlight) - (list (cons "light_square" chess-images-highlight-color) - (cons "dark_square" chess-images-highlight-color) - (cons "background" chess-images-highlight-color))) + (list (cons "light_square" (if (eq mode :selected) + chess-images-highlight-color + mode)) + (cons "dark_square" (if (eq mode :selected) + chess-images-highlight-color + mode)) + (cons "background" (if (eq mode :selected) + chess-images-highlight-color + mode)))) (put-text-property pos (1+ pos) 'display highlight))) (defun chess-images-alter-size (test) -- cgit v1.2.3