diff options
| -rw-r--r-- | chess-display.el | 4 | ||||
| -rw-r--r-- | chess-ics.el | 4 |
2 files changed, 5 insertions, 3 deletions
diff --git a/chess-display.el b/chess-display.el index e55431b..6ff06c4 100644 --- a/chess-display.el +++ b/chess-display.el @@ -383,7 +383,9 @@ that is supported by most displays, and is the default mode." (defun chess-display-popup-in-window () "Popup the given DISPLAY, so that it's visible to the user." (unless (get-buffer-window (current-buffer)) - (fit-window-to-buffer (display-buffer (current-buffer))))) + (if (> (length (window-list)) 1) + (fit-window-to-buffer (display-buffer (current-buffer))) + (display-buffer (current-buffer))))) (defun chess-display-popup-in-frame (height width &optional display no-minibuffer) diff --git a/chess-ics.el b/chess-ics.el index f83632b..8d9811b 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -327,8 +327,8 @@ who is black." (let ((buf (if (nth 4 server) (apply 'make-comint "chess-ics" (nth 4 server) nil (nth 5 server)) - (apply 'make-comint "chess-ics" - (cons (nth 0 server) (nth 1 server)))))) + (make-comint "chess-ics" (cons (nth 0 server) + (nth 1 server)))))) (chess-message 'ics-connected (nth 0 server)) |