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

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

[elpa] externals/consult 4971069: Fix consult-key face usage


From: ELPA Syncer
Subject: [elpa] externals/consult 4971069: Fix consult-key face usage
Date: Wed, 21 Jul 2021 21:57:08 -0400 (EDT)

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

    Fix consult-key face usage
---
 consult-register.el | 6 +++---
 consult.el          | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/consult-register.el b/consult-register.el
index 4319431..729b66f 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 (single-key-description key))
-           (fmt (format "%%-%ds " (max 3 (length key-str)))))
+    (let ((key-str (propertize (single-key-description key) 'face 
'consult-key)))
       (concat
-       (format fmt (propertize key-str 'face 'consult-key))
+       key-str
+       " "
        ;; Special printing for certain register types
        (cond
         ;; Display full string
diff --git a/consult.el b/consult.el
index 55dc206..a8cd7e3 100644
--- a/consult.el
+++ b/consult.el
@@ -3915,7 +3915,7 @@ See `consult-grep' for more details regarding the 
asynchronous search."
                 (desc (match-string 4 str)))
             (push (cons
                    (format "%s - %s"
-                           (propertize names 'face 'consult-key)
+                           (propertize names 'face 'consult-file)
                            desc)
                    (concat section " " name))
                   candidates)))))



reply via email to

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