[elpa] externals/olivetti 38b2eb4 110/134: Limit window-width to 2* largest fringe

[Stefan Monnier]

branch: externals/olivetti
commit 38b2eb41ab1eace7581d787003b07190a0c83aef
Author: Paul Rankin <address@hidden>
Commit: Paul Rankin <address@hidden>

    Limit window-width to 2* largest fringe
---
 olivetti.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/olivetti.el b/olivetti.el
index c5a9035..09bc0e4 100644
--- a/olivetti.el
+++ b/olivetti.el
@@ -283,8 +283,8 @@ face, scale N by that factor, otherwise scale by 1."
                       (% olivetti-minimum-body-width 2))))
     (setq window-width
           (- window-width
-             (/ (+ (car fringes) (cadr fringes))
-                (frame-char-width (window-frame window)))
+             (/ (* (max (car fringes) (cadr fringes)) 2)
+                (float (frame-char-width (window-frame window))))
              (% window-width 2)))
     (cond ((integerp width)
            (max (min width (floor window-width)) min-width))