From e66b028def9af45cc545c973255df42c9b90cde1 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Fri, 12 Apr 2002 07:58:22 +0000
Subject: optimizations and bug fixes

---
 chess-plain.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'chess-plain.el')

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)
 
-- 
cgit v1.2.3