Minor tweaks of copying text properties when padding strings

* src/editfns.c (styled_format): Don't include padding on the left
in the properties at the beginning of the string.  (Bug#23897)

* test/src/editfns-tests.el (format-properties): Add tests for
faces when the string is padded on the left or on the right.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/editfns.c b/src/editfns.c
index 73f024409b1..4c8336b8c82 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -4175,13 +4175,13 @@ styled_format (ptrdiff_t nargs, Lisp_Object *args, bool message)
               convbytes += padding;
               if (convbytes <= buf + bufsize - p)
                 {
-                  info[n].start = nchars;
                   if (! minus_flag)
                     {
                       memset (p, ' ', padding);
                       p += padding;
                       nchars += padding;
                     }
+                  info[n].start = nchars;
 
                   if (p > buf
                       && multibyte