Commit c6cf2c1e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 1c3c9e64
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment