branch: externals/marginalia
commit f6c1f50686c5c96761d0b9d12773e2391459487c
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
marginalia--variable-value: Add tool tip with additional integer formats
---
CHANGELOG.org | 6 ++++++
marginalia.el | 7 ++++++-
2 files changed, 12 insertions(+), 1 deletion(-)
diff --git a/CHANGELOG.org b/CHANGELOG.org
index 6f7a12fc18..df1215f1ae 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,6 +2,12 @@
#+author: Omar Antolín Camarena, Daniel Mendler
#+language: en
+* Development
+
+- =marginalia-key=: Inherit from =help-key-binding= face.
+- =marginalia--variable-value=: Add tool tip for integers with hexadecimal,
octal
+ and character representation.
+
* Version 1.8 (2024-12-22)
- Require Emacs 28.1.
diff --git a/marginalia.el b/marginalia.el
index 2d62c5548f..0e16b1b103 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -685,7 +685,12 @@ keybinding since CAND includes it."
(format (propertize "#'%s" 'face 'marginalia-function) val))
((pred recordp) (format (propertize "#<record %s>" 'face
'marginalia-value) (type-of val)))
((pred symbolp) (propertize (symbol-name val) 'face
'marginalia-symbol))
- ((pred numberp) (propertize (number-to-string val) 'face
'marginalia-number))
+ ((pred numberp)
+ (propertize (number-to-string val)
+ 'face 'marginalia-number
+ 'help-echo (and (integerp val)
+ (format "%d, #o%o, #x%x%s" val val val
+ (if (characterp val) (format ",
?%c" val) "")))))
(_ (let ((print-escape-newlines t)
(print-escape-control-characters t)
;;(print-escape-multibyte t)
