[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.