diff options
| author | Richard M. Stallman | 1992-10-27 20:19:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-10-27 20:19:00 +0000 |
| commit | c6cf2c1e4f187fdbe69a996521006c7443e0597b (patch) | |
| tree | 90d8c260c71ca47a3f7d7d00d166fcb6ba8edcc4 | |
| parent | 1c3c9e649f1a582b93ef0d5cdc35ba3a2457639d (diff) | |
| download | emacs-c6cf2c1e4f187fdbe69a996521006c7443e0597b.tar.gz emacs-c6cf2c1e4f187fdbe69a996521006c7443e0597b.zip | |
(fortran-window-create): Use screen-width, not frame-width.
| -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'." | |||
| 514 | (condition-case error | 514 | (condition-case error |
| 515 | (progn | 515 | (progn |
| 516 | (let ((window-min-width 2)) | 516 | (let ((window-min-width 2)) |
| 517 | (if (< (window-width) (frame-width)) | 517 | (if (< (window-width) (screen-width)) |
| 518 | (enlarge-window-horizontally (- (frame-width) | 518 | (enlarge-window-horizontally (- (screen-width) |
| 519 | (window-width) 1))) | 519 | (window-width) 1))) |
| 520 | (split-window-horizontally 73) | 520 | (split-window-horizontally 73) |
| 521 | (other-window 1) | 521 | (other-window 1) |