From 1de8d93d08ada0afae0b6999d5ca7fa43483ea11 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Apr 1994 00:06:58 +0000 Subject: [PATCH] (shrink-window-if-larger-than-buffer): Do nothing for side-by-side windows. --- lisp/window.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/window.el b/lisp/window.el index 57fadfd5701..10206e20859 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -143,6 +143,7 @@ ARG columns. No arg means split equally." "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 @@ or if the window is the only window of its frame." (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) -- 2.39.5