[Top][All Lists]

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

[elpa] externals/consult f693df6 1/2: Revert "Fix consult-key face usage

From: ELPA Syncer
Subject: [elpa] externals/consult f693df6 1/2: Revert "Fix consult-key face usage"
Date: Thu, 22 Jul 2021 12:57:08 -0400 (EDT)

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

    Revert "Fix consult-key face usage"
    This reverts commit 497106916cd23113bd71b35c60e14110caf756d5.
 consult-register.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/consult-register.el b/consult-register.el
index 729b66f..4319431 100644
--- a/consult-register.el
+++ b/consult-register.el
@@ -77,10 +77,10 @@ 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 (propertize (single-key-description key) 'face 
+    (let* ((key-str (single-key-description key))
+           (fmt (format "%%-%ds " (max 3 (length key-str)))))
-       key-str
-       " "
+       (format fmt (propertize key-str 'face 'consult-key))
        ;; Special printing for certain register types
         ;; Display full string

reply via email to

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