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

This commit is contained in:
Richard M. Stallman 1992-10-27 20:19:00 +00:00
parent 1c3c9e649f
commit c6cf2c1e4f

View file

@ -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)