Several navigation improvements.

1 files changed, 5 insertions, 0 deletions

diff --git a/sx.el b/sx.el
index 7ed56d3..058230c 100644
--- a/sx.el
+++ b/sx.el
@@ -31,6 +31,11 @@
   "Display a message"
   (message "[stack] %s" (apply #'format format-string args)))
 
+(defun sx-message-help-echo ()
+  "If there's a 'help-echo property under point, message it."
+  (let ((echo (get-text-property (point) 'help-echo)))
+    (when echo (message "%s" echo))))
+
 (defun sx--thing-as-string (thing &optional sequence-sep)
   "Return a string representation of THING.  If THING is already
 a string, just return it."