diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-06-17 21:56:10 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-06-17 21:56:10 +0000 |
| commit | 033a9058945b4388e854efbd0beb0925b64ca17a (patch) | |
| tree | 28c2ff49dcc154c6e751847dec67d575acaae161 | |
| parent | 1c6731f49c6ae6a6a0e8fc6b715a9eccb4b389c8 (diff) | |
*** no comment ***
| -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)) |