diff options
| author | John Wiegley <johnw@newartisans.com> | 2018-09-06 11:11:55 -0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2018-09-06 11:11:55 -0700 |
| commit | 5298bf5d110073e9508f6357ae28eee46ad29406 (patch) | |
| tree | 37e2af6242423e57adbbc1238433f58c92ac9bd0 /chess-plain.el | |
| parent | 67339d896aa65d75272b80134a8128276c8c6a0f (diff) | |
| parent | 3222b53d942daa404852e5148ba9d3ebb8fe96d0 (diff) | |
Merge pull request #27 from dickmao/premoves
Pre-moves
Diffstat (limited to 'chess-plain.el')
| -rw-r--r-- | chess-plain.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/chess-plain.el b/chess-plain.el index 7dd66f1..d8036b8 100644 --- a/chess-plain.el +++ b/chess-plain.el @@ -324,11 +324,16 @@ PERSPECTIVE is t for white or nil for black." (goto-char pos)))) (defun chess-plain-highlight (index &optional mode) - (let ((pos (chess-display-index-pos nil index))) + (let ((pos (chess-display-index-pos nil index)) + (piece (chess-pos-piece (chess-display-position nil) index))) (put-text-property pos (1+ pos) 'face (cond ((eq mode :selected) 'chess-plain-highlight-face) + ((eq mode :unselected) + (if (> piece ?a) + 'chess-plain-black-face + 'chess-plain-white-face)) (t (chess-display-get-face mode)))))) |