emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive e4ec1274a2 11/21: Change: (-history--format-ran


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive e4ec1274a2 11/21: Change: (-history--format-range-entry) Add help-echo to version ranges
Date: Sun, 15 Oct 2023 19:00:39 -0400 (EDT)

branch: elpa/hyperdrive
commit e4ec1274a28311927633cd3b13ca1f1ffe39d8f0
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@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 "")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]