[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
'consult-key)))
+ (let* ((key-str (single-key-description key))
+ (fmt (format "%%-%ds " (max 3 (length key-str)))))
(concat
- key-str
- " "
+ (format fmt (propertize key-str 'face 'consult-key))
;; Special printing for certain register types
(cond
;; Display full string