comparison lisp/window.el @ 6019:0c0b00572d96

(shrink-window-if-larger-than-buffer): Don't shrink if the window that would expand is the minibuffer.

6018:51d9a0c72a29

	   (and (not (eobp))
		(eq ?\n (char-after (1- (point-max))))))
	  (window-min-height 0)
	  (buffer-read-only nil)
	  (modified (buffer-modified-p))
	  (buffer (current-buffer)))
      (if (and (< 1 (count-windows))
	       (pos-visible-in-window-p (point-min) window))
	  (unwind-protect
	      (progn
		(select-window (or window w))
		(goto-char (point-min))
		(while (pos-visible-in-window-p

6019:0c0b00572d96

	   (and (not (eobp))
		(eq ?\n (char-after (1- (point-max))))))
	  (window-min-height 0)
	  (buffer-read-only nil)
	  (modified (buffer-modified-p))
	  (buffer (current-buffer))
	  (mini (cdr (assq 'minibuffer (frame-parameters))))
	  (edges (window-edges (selected-window))))
      (if (and (< 1 (count-windows))
	       (pos-visible-in-window-p (point-min) window)
	       (or (not mini)
		   (< (nth 3 edges)
		      (nth 1 (window-edges mini)))
		   (> (nth 1 edges)
		      (cdr (assq 'menu-bar-lines (frame-parameters))))))
	  (unwind-protect
	      (progn
		(select-window (or window w))
		(goto-char (point-min))
		(while (pos-visible-in-window-p