diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-16 22:48:02 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-16 22:48:02 +0000 |
| commit | 63e44a6be978999ff23b8ba754d8ad3c9fc78969 (patch) | |
| tree | 61bb043c7679e9e3aed26c243f8d0ba0c82cc7b1 /chess-display.el | |
| parent | 467db22482ecb46f15aca4ed3e5c7776478f2f2a (diff) | |
Don't popup the display if it's not necessary to do so.
Diffstat (limited to 'chess-display.el')
| -rw-r--r-- | chess-display.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/chess-display.el b/chess-display.el index 57ea7f5..93dbe8d 100644 --- a/chess-display.el +++ b/chess-display.el @@ -251,7 +251,9 @@ that is supported by most displays, and is the default mode." (defun chess-display-popup (display) "Popup the given DISPLAY, so that it's visible to the user." (chess-with-current-buffer display - (funcall chess-display-event-handler 'popup))) + (unless (eq (get-buffer-window (current-buffer)) + (selected-window)) + (funcall chess-display-event-handler 'popup)))) (defun chess-display-enable-popup (display) "Popup the given DISPLAY, so that it's visible to the user." |