emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/vertico e5a1c4e 2/2: vertico-quick: Fix space


From: ELPA Syncer
Subject: [elpa] externals/vertico e5a1c4e 2/2: vertico-quick: Fix space
Date: Sat, 10 Jul 2021 12:57:20 -0400 (EDT)

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

    vertico-quick: Fix space
---
 extensions/vertico-quick.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/extensions/vertico-quick.el b/extensions/vertico-quick.el
index e237d02..7b11f5c 100644
--- a/extensions/vertico-quick.el
+++ b/extensions/vertico-quick.el
@@ -66,7 +66,8 @@
          (len (+ fst snd))
          (idx (- index start))
          ;; Ensure that space is not trimmed by `vertico-flat-mode'
-         (sp (propertize "_" 'display `(space :width 1))))
+         (sp #("_" 0 1 (display (space :width 1))))
+         (sp2 #("__" 0 2 (display (space :width 2)))))
     (funcall orig cand
              (concat
               (if (>= idx fst)
@@ -77,7 +78,7 @@
                      ((eq first vertico-quick--first)
                       (concat sp (propertize (char-to-string second) 'face 
'vertico-quick1)))
                      (vertico-quick--first
-                      (concat sp sp))
+                      sp2)
                      (t
                       (concat (propertize (char-to-string first) 'face 
'vertico-quick1)
                               (propertize (char-to-string second) 'face 
'vertico-quick2)))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]