From c6cf2c1e4f187fdbe69a996521006c7443e0597b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 27 Oct 1992 20:19:00 +0000 Subject: [PATCH] (fortran-window-create): Use screen-width, not frame-width. --- lisp/progmodes/fortran.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index a02bc7c8a5..044945e6cd 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -514,8 +514,8 @@ See also `fortran-window-create-momentarily'." (condition-case error (progn (let ((window-min-width 2)) - (if (< (window-width) (frame-width)) - (enlarge-window-horizontally (- (frame-width) + (if (< (window-width) (screen-width)) + (enlarge-window-horizontally (- (screen-width) (window-width) 1))) (split-window-horizontally 73) (other-window 1) -- 2.20.1