diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-10-22 07:40:12 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-10-22 07:40:12 +0000 |
| commit | b8e4cd1d74a215eb2cf3f62f7e7ec89c2a1253b7 (patch) | |
| tree | 149e2d23cb0cb42ba72318e49c4c94777e2499ce /lisp/progmodes/fortran.el | |
| parent | faeb497761a1aa21ff6a382b12344a77884c18db (diff) | |
| download | emacs-b8e4cd1d74a215eb2cf3f62f7e7ec89c2a1253b7.tar.gz | |
Martin Rudalics <rudalics at gmx.at>
(fortran-mode-map, fortran-window-create): Use window-full-width-p.
Diffstat (limited to 'lisp/progmodes/fortran.el')
| -rw-r--r-- | lisp/progmodes/fortran.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 16992c54523..c400ea3099d 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -585,7 +585,7 @@ Used in the Fortran entry in `hs-special-modes-alist'.") ["72-column window" fortran-window-create t] ["Full Width Window" (enlarge-window-horizontally (- (frame-width) (window-width))) - (< (window-width) (frame-width))] + (not (window-full-width-p))] ["Momentary 72-column window" fortran-window-create-momentarily t] "--" ["Break Line at Point" fortran-split-line t] @@ -944,9 +944,9 @@ The next key typed is executed unless it is SPC." See also `fortran-window-create-momentarily'." (interactive) (let ((window-min-width 2)) - (if (< (window-width) (frame-width)) - (enlarge-window-horizontally (- (frame-width) - (window-width) 1))) + (unless (window-full-width-p) + (enlarge-window-horizontally (- (frame-width) + (window-width) 1))) (let* ((window-edges (window-edges)) (scroll-bar-width (- (nth 2 window-edges) (car window-edges) |