branch: elpa/hyperdrive
commit e4ec1274a28311927633cd3b13ca1f1ffe39d8f0
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (-history--format-range-entry) Add help-echo to version ranges
---
hyperdrive-history.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index d11fe9b316..6e5b2394ef 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -75,7 +75,12 @@ value \\+`unknown', and whose cdr is a hyperdrive entry."
('unknown 'hyperdrive-history-unknown)))
(propertize formatted-range
'face 'hyperdrive-history-range
- 'mouse-face 'highlight)
+ 'mouse-face 'highlight
+ 'help-echo (format (pcase-exhaustive existsp
+ ('t "Open version %s")
+ ('nil "Nonexistent at version %s")
+ ('unknown "Load history at
version %s"))
+ range-start))
(propertize (or size "")
'face 'hyperdrive-size)
(propertize (or timestamp "")
