From ca03b5a94d233b4dfd7637a0c9f78e4477a8affb Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 22 Oct 2007 07:40:37 +0000 Subject: [PATCH] Martin Rudalics (fortran-mode-map, fortran-window-create): Use window-full-width-p. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/fortran.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aeba7efff8b..74777d4c221 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-10-22 Martin Rudalics + + * progmodes/fortran.el (fortran-mode-map, fortran-window-create): + Use window-full-width-p. + 2007-10-22 Dan Nicolaescu * mail/vms-pmail.el (insert-signature): Don't use end-of-buffer. diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 016e484a6c5..fb847d25505 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -622,7 +622,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] @@ -1010,7 +1010,7 @@ 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)) + (unless (window-full-width-p) (enlarge-window-horizontally (- (frame-width) (window-width) 1))) (let* ((window-edges (window-edges)) -- 2.39.2