[Top][All Lists]

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

[elpa] externals/marginalia f945fa5: marginalia-annotate-char/binding: I

From: ELPA Syncer
Subject: [elpa] externals/marginalia f945fa5: marginalia-annotate-char/binding: Improve fontification
Date: Sun, 21 Nov 2021 14:57:19 -0500 (EST)

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

    marginalia-annotate-char/binding: Improve fontification
 marginalia.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index d724d32..a6ef0f9 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -391,7 +391,7 @@ WIDTH is the format width. This can be specified as 
alternative to FORMAT."
   "Annotate command CAND with keybinding."
   (when-let* ((sym (intern-soft cand))
               (key (and (commandp sym) (where-is-internal sym nil 
-    (propertize (format " (%s)" (key-description key)) 'face 'marginalia-key)))
+    (format #(" (%s)" 1 5 (face marginalia-key)) (key-description key))))
 (defun marginalia--annotator (cat)
   "Return annotation function for category CAT."
@@ -588,8 +588,8 @@ keybinding since CAND includes it."
            ;; NOTE: We are not consistent here, values are generally printed 
unquoted. But we
            ;; make an exception for function symbols to visually distinguish 
them from symbols.
            ;; I am not entirely happy with this, but we should not add 
quotation to every type.
-           (propertize (format "#'%s" val) 'face 'marginalia-function))
-          ((pred recordp) (propertize (format "#<record %s>" (type-of val)) 
'face 'marginalia-value))
+           (format (propertize "#'%s" 'face 'marginalia-function) val))
+          ((pred recordp) (format (propertize "#<record %s>" 'face 
'marginalia-value) (type-of val)))
           ((pred symbolp) (propertize (symbol-name val) 'face 
           ((pred numberp) (propertize (number-to-string val) 'face 
           (_ (let ((print-escape-newlines t)
@@ -664,7 +664,7 @@ keybinding since CAND includes it."
   "Annotate character CAND with its general character category and character 
   (when-let (char (char-from-name cand t))
-     (propertize (format " (%c)" char) 'face 'marginalia-char)
+     (format #(" (%c)" 1 5 (face marginalia-char)) char)
       (char :format "%06X" :face 'marginalia-number)

reply via email to

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