From f5eca67bfd39acff520179d83e0e29bc55d78044 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 1 May 2002 00:21:37 +0000 Subject: fixed bug in popup logic --- chess-display.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'chess-display.el') 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)))))) -- cgit v1.2.3