From 3565241b2afcf81741c631bfba45304815ce847f Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sat, 15 Nov 2014 00:18:35 +0000 Subject: Several navigation improvements. --- sx.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'sx.el') 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." -- cgit v1.2.3