diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-12 07:58:22 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-12 07:58:22 +0000 |
| commit | e66b028def9af45cc545c973255df42c9b90cde1 (patch) | |
| tree | b4d7bf33b4aabfee075ff211e3da12456fbeaf70 /chess-plain.el | |
| parent | cdba8a5aed3bd66e62f348a7064acece342bb68e (diff) | |
optimizations and bug fixes
Diffstat (limited to 'chess-plain.el')
| -rw-r--r-- | chess-plain.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/chess-plain.el b/chess-plain.el index fdcf522..2a2c545 100644 --- a/chess-plain.el +++ b/chess-plain.el @@ -61,11 +61,6 @@ modify `chess-plain-piece-chars' to avoid real confusion.)" :type '(choice (const 'color) (const 'square-color))) ;; fails somehow -(defcustom chess-plain-popup t - "If non-nil, popup the chessboard display whenever the opponent moves." - :type 'boolean - :group 'chess-plain) - (defcustom chess-plain-popup-function 'chess-display-popup-in-window "The function used to popup a chess-plain display." :type 'function @@ -76,7 +71,7 @@ modify `chess-plain-piece-chars' to avoid real confusion.)" (defun chess-plain-handler (event &rest args) (cond ((eq event 'popup) - (if chess-plain-popup + (if chess-display-popup (funcall chess-plain-popup-function))) ((eq event 'draw) (apply 'chess-plain-draw args)) @@ -151,7 +146,11 @@ PERSPECTIVE is t for white or nil for black." (1+ file) file))) (put-text-property (point) (1+ (point)) 'face - 'chess-display-highlight-face)))) + (cond + ((eq mode :selected) + 'chess-plain-highlight-face) + (t + (chess-display-get-face mode))))))) (provide 'chess-plain) |