[elpa] externals/consult 896b33d 2/2: consult-register: Fix usage of consult-key face

[ELPA Syncer]

branch: externals/consult
commit 896b33dbdef6748a5587df3f4d695d94564488a4
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    consult-register: Fix usage of consult-key face
---
 consult-register.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/consult-register.el b/consult-register.el
index 4319431..0269882 100644
--- a/consult-register.el
+++ b/consult-register.el
@@ -77,10 +77,11 @@ This function can be used as `register-preview-function'."
 (defun consult-register--format (reg)
   "Format register REG for preview."
   (pcase-let ((`(,key . ,val) reg))
-    (let* ((key-str (single-key-description key))
-           (fmt (format "%%-%ds " (max 3 (length key-str)))))
+    (let* ((key-str (propertize (single-key-description key) 'face 
'consult-key))
+           (len (max 3 (length key-str))))
       (concat
-       (format fmt (propertize key-str 'face 'consult-key))
+       key-str
+       (make-string (- len (length key-str)) ?\s)
        ;; Special printing for certain register types
        (cond
         ;; Display full string
@@ -89,7 +90,7 @@ This function can be used as `register-preview-function'."
            (setq val (mapconcat #'identity val "\n")))
          (mapconcat #'identity
                     (seq-take (split-string (string-trim val) "\n") 3)
-                    (format fmt "\n")))
+                    (concat "\n" (make-string len ?\s))))
         ;; Display 'file-query
         ((eq (car-safe val) 'file-query)
          (format "%s at position %d"