(fortran-window-create): Use screen-width, not frame-width.

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index a02bc7c..044945e 100644 (file)
--- 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)