--- a/lisp/window.el	Mon Aug 13 11:19:22 2007 +0200
+++ b/lisp/window.el	Mon Aug 13 11:20:41 2007 +0200
@@ -295,8 +295,8 @@
 			(select-frame frame))))
 	       ;; check to make sure that the window is the full width
 	       ;; of the frame
-	       (window-leftmost-p window)
-	       (window-rightmost-p window)
+	       (eq (nth 2 edges)
+		   (frame-pixel-width))
 	       (zerop (nth 0 edges))
 	       ;; The whole buffer must be visible.
 	       (pos-visible-in-window-p (point-min) window)
@@ -351,4 +351,5 @@
                   minibuf all-frames device)
     wins))
 
+
 ;;; window.el ends here