[elpa] externals/marginalia c1365bf0c7: Pretty print oclosures

[ELPA Syncer]

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

    Pretty print oclosures
---
 marginalia.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/marginalia.el b/marginalia.el
index 73b41fcc38..3e8783e325 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -592,6 +592,9 @@ keybinding since CAND includes it."
           ;; Emacs bug#53988: abbrev-table-p throws an error
           ((guard (ignore-errors (abbrev-table-p val))) (propertize 
"#<abbrev-table>" 'face 'marginalia-value))
           ((pred char-table-p) (propertize "#<char-table>" 'face 
'marginalia-value))
+          ;; Emacs 29 comes with callable objects or object closures 
(OClosures)
+          ((guard (and (fboundp 'oclosure-type) (oclosure-type val)))
+           (format (propertize "#<oclosure %s>" 'face 'marginalia-function) 
(oclosure-type val)))
           ((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