[elpa] externals/nano-modeline 239000d7e1 10/26: Handle case when fringes are outside margins

[ELPA Syncer]

branch: externals/nano-modeline
commit 239000d7e18a9381ecdfef0dcaf1dc9a0abc507b
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Handle case when fringes are outside margins
---
 nano-modeline.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/nano-modeline.el b/nano-modeline.el
index c69910ef58..a64f5e319b 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -206,20 +206,22 @@ using the given FACE-PREFIX as the default."
                      (apply (car element) (cdr element))))
                    ',right))
            (width (window-width))
+           (fringe (if fringes-outside-margins 0.0 -1.0))
            (left-max-size (- width (length right) 2))
            (left (if (> (length left) left-max-size)
                      (concat (truncate-string-to-width left left-max-size)
                              (propertize "…" 'face `(:inherit  
,nano-modeline-base-face)))
                    left)))
       (concat (propertize " "
-                'display `(space :align-to (+ left-margin
-                                              (0.0 . left-fringe)
-                                              (1.0 . left-margin))))
+                'display `(space :align-to (+ left
+                                              (,fringe . left-fringe)
+                                              ( 0.0 . left-margin))))
               left
               (propertize " "
                 'face `(:inherit ,nano-modeline-base-face)
                 'display `(space :align-to (- right
-                                              (-1.0 . right-fringe)
+                                              (,fringe . right-fringe)
+                                              ( 0.0 . right-margin)
                                               ,(length right))))
               right))))