# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779598600 0
# Node ID b13519279d73c874de2b0d9f64c617aa092fbfa8
# Parent  db4473742de773204317192f3118268339cb7ed4
(shrink-window-if-larger-than-buffer):
Use frame-width, not screen-width.

diff -r db4473742de7 -r b13519279d73 lisp/window.el
--- a/lisp/window.el	Thu Sep 15 03:07:47 1994 +0000
+++ b/lisp/window.el	Thu Sep 15 03:10:00 1994 +0000
@@ -168,7 +168,7 @@
 	  (mini (cdr (assq 'minibuffer (frame-parameters))))
 	  (edges (window-edges (selected-window))))
       (if (and (< 1 (count-windows))
-	       (= (window-width) (screen-width))
+	       (= (window-width) (frame-width))
 	       (pos-visible-in-window-p (point-min) window)
 	       (or (not mini)
 		   (< (nth 3 edges)