summaryrefslogtreecommitdiff
path: root/chess-display.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2002-05-01 00:21:37 +0000
committerJohn Wiegley <johnw@newartisans.com>2002-05-01 00:21:37 +0000
commitf5eca67bfd39acff520179d83e0e29bc55d78044 (patch)
treee0498633c9a59c5054c3ca602ac9f6c50138dfe6 /chess-display.el
parent6ac4f8ffea90df72301440f8623936394e5c0bf9 (diff)
fixed bug in popup logic
Diffstat (limited to 'chess-display.el')
-rw-r--r--chess-display.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/chess-display.el b/chess-display.el
index 23938fe..c90f180 100644
--- a/chess-display.el
+++ b/chess-display.el
@@ -462,8 +462,10 @@ See `chess-display-type' for the different kinds of displays."
(if (eq event 'move)
(progn
(chess-display-paint-move nil (car args))
- (chess-display-popup nil))
- (chess-display-update nil t)))
+ (if (and chess-display-popup
+ (not chess-display-no-popup))
+ (chess-display-popup nil)))
+ (chess-display-update nil chess-display-popup)))
(if (memq event chess-display-interesting-events)
(chess-display-update nil))))))