[nongnu] elpa/telephone-line f1f017607f 094/195: Fill now uses first right-hand segment for color

[ELPA Syncer]

branch: elpa/telephone-line
commit f1f017607ffcff7f4fe81e3fd5c04fd70e23d96a
Author: Daniel Bordak <dbordak@fastmail.fm>
Commit: Daniel Bordak <dbordak@fastmail.fm>

    Fill now uses first right-hand segment for color
---
 telephone-line.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/telephone-line.el b/telephone-line.el
index e8b1e934c3..5a38a340d0 100644
--- a/telephone-line.el
+++ b/telephone-line.el
@@ -141,7 +141,8 @@ Secondary separators do not incur a background color 
change."
   "Return RESERVE empty space on the right, optionally with a FACE."
   (propertize " "
               'display `((space :align-to (- (+ right right-fringe 
right-margin)
-                                             ,reserve)))))
+                                             ,reserve)))
+              'face face))
 
 (defvar telephone-line-selected-window nil)
 
@@ -294,7 +295,8 @@ separators, as they are conditional, are evaluated 
on-the-fly."
             (telephone-line-width
              ',(telephone-line--generate-mode-line-rhs)
              ,(- (length telephone-line-rhs) 1)
-             ,telephone-line-primary-right-separator)))
+             ,telephone-line-primary-right-separator)
+            (telephone-line-face-map (caar telephone-line-rhs))))
     ,@(telephone-line--generate-mode-line-rhs)))
 
 (defvar telephone-line--default-mode-line mode-line-format)