# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766454818 0
# Node ID e068218e992b06deeb42ae31b97b4494fd6f022a
# Parent  b264fb73cfe7deb07b2a1b6359a35756c4491107
(shrink-window-if-larger-than-buffer):
Do nothing for side-by-side windows.

diff -r b264fb73cfe7 -r e068218e992b lisp/window.el
--- a/lisp/window.el	Sat Apr 16 00:02:28 1994 +0000
+++ b/lisp/window.el	Sat Apr 16 00:06:58 1994 +0000
@@ -143,6 +143,7 @@
   "Shrink the WINDOW to be as small as possible to display its contents.
 Do nothing if the buffer contains more lines than the present window height,
 or if some of the window's contents are scrolled out of view,
+or if the window is not the full width of the frame,
 or if the window is the only window of its frame."
   (interactive)
   (save-excursion
@@ -163,6 +164,7 @@
 	  (mini (cdr (assq 'minibuffer (frame-parameters))))
 	  (edges (window-edges (selected-window))))
       (if (and (< 1 (count-windows))
+	       (= (window-width) (screen-width))
 	       (pos-visible-in-window-p (point-min) window)
 	       (or (not mini)
 		   (< (nth 3 edges)