[elpa] externals/vertico d646722: vertico-flat/grid-mode: Copy string properties when shrinking string

[ELPA Syncer]

branch: externals/vertico
commit d646722e3715324036e9850301e731585205763a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    vertico-flat/grid-mode: Copy string properties when shrinking string
---
 extensions/vertico-flat.el | 3 ++-
 extensions/vertico-grid.el | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/extensions/vertico-flat.el b/extensions/vertico-flat.el
index 410f259..43631a6 100644
--- a/extensions/vertico-flat.el
+++ b/extensions/vertico-flat.el
@@ -82,7 +82,8 @@
           (setq cand (vertico--truncate-multiline cand width)))
         (setq cand (string-trim
                     (replace-regexp-in-string
-                     "[ \t]+" (if (= index vertico--index) #(" " 0 1 (face 
vertico-current)) " ")
+                     "[ \t]+"
+                     (lambda (x) (apply #'propertize " " (text-properties-at 0 
x)))
                      (vertico--format-candidate cand "" "" index 
vertico--index))))
         (setq index (1+ index)
               count (1- count)
diff --git a/extensions/vertico-grid.el b/extensions/vertico-grid.el
index f00e296..a46f981 100644
--- a/extensions/vertico-grid.el
+++ b/extensions/vertico-grid.el
@@ -84,8 +84,8 @@ When scrolling beyond this limit, candidates may be 
truncated."
                              (truncate-string-to-width
                               (string-trim
                                (replace-regexp-in-string
-                                "[ \t]+" (if (= index vertico--index)
-                                             #(" " 0 1 (face vertico-current)) 
" ")
+                                "[ \t]+"
+                                (lambda (x) (apply #'propertize " " 
(text-properties-at 0 x)))
                                 (vertico--format-candidate cand "" "" index 
start)))
                               width))
                            (funcall vertico--highlight-function