branch: externals/marginalia
commit 7ac023301670802a1462d649ff703da04a2070fa
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
marginalia--variable-value: Add record type
---
marginalia.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/marginalia.el b/marginalia.el
index 2b544bd..63109ea 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -581,6 +581,7 @@ keybinding since CAND includes it."
;; 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))
((pred symbolp) (propertize (symbol-name val) 'face
'marginalia-symbol))
((pred numberp) (propertize (number-to-string val) 'face
'marginalia-number))
(_ (let ((print-escape-newlines t)
