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

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

[elpa] externals/marginalia 29fb491 1/2: marginalia--variable-value: Add


From: ELPA Syncer
Subject: [elpa] externals/marginalia 29fb491 1/2: marginalia--variable-value: Add more special types
Date: Tue, 12 Oct 2021 06:57:19 -0400 (EDT)

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

    marginalia--variable-value: Add more special types
---
 marginalia.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 293e773..2b544bd 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -571,8 +571,11 @@ keybinding since CAND includes it."
         (pcase (symbol-value sym)
           ('nil (propertize "nil" 'face 'marginalia-null))
           ('t (propertize "t" 'face 'marginalia-true))
-          ((pred keymapp) (propertize "<keymap>" 'face 'marginalia-value))
-          ((pred hash-table-p) (propertize "<hash-table>" 'face 
'marginalia-value))
+          ((pred keymapp) (propertize "#<keymap>" 'face 'marginalia-value))
+          ((pred hash-table-p) (propertize "#<hash-table>" 'face 
'marginalia-value))
+          ((pred syntax-table-p) (propertize "#<syntax-table>" 'face 
'marginalia-value))
+          ((pred char-table-p) (propertize "#<char-table>" 'face 
'marginalia-value))
+          ((pred byte-code-function-p) (propertize "#<byte-code-function>" 
'face 'marginalia-function))
           ((and (pred functionp) (pred symbolp))
            ;; 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.



reply via email to

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