[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/marginalia 34c8912: marginalia-annotate-variable: Don't
From: |
ELPA Syncer |
Subject: |
[elpa] externals/marginalia 34c8912: marginalia-annotate-variable: Don't print hash tables |
Date: |
Mon, 26 Jul 2021 06:57:16 -0400 (EDT) |
branch: externals/marginalia
commit 34c8912d04b73179b1a5a29e4e87c6413cf1107a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
marginalia-annotate-variable: Don't print hash tables
---
marginalia.el | 10 ++++------
1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index e94e515..f45e67a 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -506,14 +506,12 @@ keybinding since CAND includes it."
(t (pcase (symbol-value sym)
('nil (propertize "nil" 'face 'font-lock-comment-face))
('t (propertize "t" 'face 'font-lock-builtin-face))
+ ((pred keymapp) (propertize "<keymap>" 'face 'marginalia-variable))
+ ((pred hash-table-p) (propertize "<hash-table>" 'face
'marginalia-variable))
+ ((pred functionp) (propertize (symbol-name sym) 'face
'font-lock-function-name-face))
+ ((pred symbolp) (propertize (symbol-name sym) 'face
'font-lock-type-face))
((and (pred numberp) val)
(propertize (number-to-string val) 'face
'font-lock-variable-name-face))
- ((pred functionp)
- (propertize (symbol-name sym) 'face
'font-lock-function-name-face))
- ((pred symbolp)
- (propertize (symbol-name sym) 'face 'font-lock-type-face))
- ((pred keymapp)
- (propertize "<keymap>" 'face 'marginalia-variable))
(val (let ((print-escape-newlines t)
(print-escape-control-characters t)
(print-escape-multibyte t)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/marginalia 34c8912: marginalia-annotate-variable: Don't print hash tables,
ELPA Syncer <=