From aa9305c929959ba7e64d12e4d82de240cdb64e34 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 6 Jan 1999 18:38:15 +0000 Subject: [PATCH] (fortran-window-create): Account for scroll bar width. --- lisp/progmodes/fortran.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)))) -- 2.39.2