Mercurial > emacs

changeset 24012:c41f8acc111c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fortran-window-create): Account for scroll bar width.
author Dave Love <fx@gnu.org>
date Wed, 06 Jan 1999 18:38:15 +0000
parents f36caedebd5f
children 2f040734bd5f
files lisp/progmodes/fortran.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))))