From: Dave Love <fx@gnu.org>
Date: Wed, 6 Jan 1999 18:38:15 +0000 (+0000)
Subject: (fortran-window-create): Account for scroll
X-Git-Tag: emacs-20.4~937
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa9305c929959ba7e64d12e4d82de240cdb64e34;p=emacs.git

(fortran-window-create): Account for scroll
bar width.
---

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 312fb682930..1109f99aa5f 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -808,7 +808,11 @@ See also `fortran-window-create-momentarily'."
 	  (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))))