diff options
| author | Richard M. Stallman <rms@gnu.org> | 1992-10-27 20:19:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1992-10-27 20:19:00 +0000 |
| commit | 4fb2839390a130c568af46ce4a16a237d4c47f84 (patch) | |
| tree | 16cf426f3571baaf4f0abfd86cad6925b92b0265 /lisp/progmodes/fortran.el | |
| parent | 846333c598d6c0b127cfd32ff32d5733dff02ce9 (diff) | |
| download | emacs-4fb2839390a130c568af46ce4a16a237d4c47f84.tar.gz | |
(fortran-window-create): Use screen-width, not frame-width.
Diffstat (limited to 'lisp/progmodes/fortran.el')
| -rw-r--r-- | lisp/progmodes/fortran.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index a02bc7c8a5a..044945e6cd9 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) |