branch: externals/org-real
commit e38ae9b9ba5d7d21bf2c861ec379d4a7d7b1f149
Author: Tyler Grinn <tylergr...@gmail.com>
Commit: Tyler Grinn <tylergr...@gmail.com>
Added help-echo slot for minibuffer messages
---
org-real.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/org-real.el b/org-real.el
index 81c6431..a023713 100644
--- a/org-real.el
+++ b/org-real.el
@@ -702,6 +702,8 @@ ORIG is `org-insert-link', ARGS are the arguments passed to
it."
:type list)
(metadata :initarg :metadata
:type string)
+ (help-echo :initarg :help-echo
+ :type string)
(rel-box :initarg :rel-box
:type org-real-box)
(display-rel :initarg :display-rel
@@ -1216,6 +1218,8 @@ If INCLUDE-ON-TOP is non-nil, also include height on top
of box."
(save-excursion
(if (eq dir 'entered)
(progn
+ (if (slot-boundp box :help-echo)
+ (message (oref box :help-echo)))
(if (slot-boundp box :metadata)
(setq tooltip-timer (org-real--tooltip metadata))
(if (and (slot-boundp box :name) (slot-boundp box :rel))
