# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1193038746 0
# Node ID 09cb51ababe89138b186ed1bd2243679a6a8220c
# Parent  1ee7c459e1db2a311aa1ed0b63acfcdbe1320ffe
Martin Rudalics  <rudalics at gmx.at>

(fortran-mode-map, fortran-window-create): Use window-full-width-p.

diff -r 1ee7c459e1db -r 09cb51ababe8 lisp/progmodes/fortran.el
--- a/lisp/progmodes/fortran.el	Mon Oct 22 05:40:56 2007 +0000
+++ b/lisp/progmodes/fortran.el	Mon Oct 22 07:39:06 2007 +0000
@@ -622,7 +622,7 @@
         ["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 @@
 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))