diff options
| -rw-r--r-- | chess-images.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/chess-images.el b/chess-images.el index 93ca828..b7f0cc6 100644 --- a/chess-images.el +++ b/chess-images.el @@ -148,13 +148,18 @@ that specialized squares may be used such as marble tiles, etc." (define-key map [?^] 'chess-images-increase-size) (define-key map [?V] 'chess-images-decrease-size) (define-key map [?D] 'chess-images-set-directory)) + (let ((display (and (stringp chess-images-separate-frame) chess-images-separate-frame))) (setq cursor-type nil chess-images-cache nil - chess-images-size - (chess-images-best-size (- (display-pixel-height display) 20) - (- (display-pixel-width display) 20))))) + chess-images-size (chess-images-best-size + (- (if display + (x-display-pixel-height display) + (display-pixel-height)) 20) + (- (if display + (x-display-pixel-width display) + (display-pixel-width)) 20))))) (defun chess-images-popup-board () (let* ((size (float (+ (* (or chess-images-border-width 0) 8) |