# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 915647895 0
# Node ID c41f8acc111c763d25b1e6f47d2eeddff7b902c6
# Parent  f36caedebd5ff85f128a365ae92228669210f89b
(fortran-window-create): Account for scroll
bar width.

diff -r f36caedebd5f -r c41f8acc111c lisp/progmodes/fortran.el
--- a/lisp/progmodes/fortran.el	Wed Jan 06 15:23:46 1999 +0000
+++ b/lisp/progmodes/fortran.el	Wed Jan 06 18:38:15 1999 +0000
@@ -808,7 +808,11 @@
 	  (if (< (window-width) (frame-width))
 	      (enlarge-window-horizontally (- (frame-width)
 					      (window-width) 1)))
-	  (split-window-horizontally 73)
+	  (let* ((window-edges (window-edges))
+		 (scroll-bar-width (- (nth 2 window-edges)
+				      (car window-edges)
+				      (window-width))))
+	    (split-window-horizontally (+ 72 scroll-bar-width)))
 	  (other-window 1)
 	  (switch-to-buffer " fortran-window-extra" t)
 	  (select-window (previous-window))))