diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-13 08:58:47 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-13 08:58:47 +0000 |
| commit | 53db61f897996d73ecef4f4d0b8dda44f05f14cf (patch) | |
| tree | cbdba16932bb64d4f8b0775e71a73c50d4c104ca /chess-images.el | |
| parent | 2725f734a7cc15d27bfebeac3e986ff6af31d97b (diff) | |
added support for highlighting legal plies
Diffstat (limited to 'chess-images.el')
| -rw-r--r-- | chess-images.el | 12 |
1 files changed, 9 insertions, 3 deletions
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) |