Mercurial > emacs

changeset 79170:dc61ca9d9d55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Martin Rudalics <rudalics at gmx.at> (fortran-mode-map, fortran-window-create): Use window-full-width-p.
author Glenn Morris <rgm@gnu.org>
date Mon, 22 Oct 2007 07:38:32 +0000
parents c6da63ecc892
children cb5c3f9dc110
files lisp/progmodes/fortran.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/fortran.el	Mon Oct 22 04:42:10 2007 +0000
+++ b/lisp/progmodes/fortran.el	Mon Oct 22 07:38:32 2007 +0000
@@ -585,7 +585,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]
@@ -944,9 +944,9 @@
 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)