From 45efb7970d776cde25a8ba2848c6bed539fc1810 Mon Sep 17 00:00:00 2001 From: defanor Date: Sat, 30 Dec 2017 08:10:35 +0300 Subject: Show target URIs on pancake-{next, previous}-button --- pancake.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/pancake.el b/pancake.el index cc4d3f9..a509a0a 100644 --- a/pancake.el +++ b/pancake.el @@ -450,14 +450,18 @@ a version that doesn't do that." (interactive) (let ((next (next-button (point)))) (when next - (goto-char next)))) + (goto-char next) + (let ((message-log-max nil)) + (message "%s" (pancake-uri-at-point)))))) (defun pancake-previous-button () "Moves cursor to the previous button." (interactive) (let ((prev (previous-button (point)))) (when prev - (goto-char prev)))) + (goto-char prev) + (let ((message-log-max nil)) + (message "%s" (pancake-uri-at-point)))))) (defun pancake-previous-heading () "Moves cursor to the previous heading." -- cgit v1.2.3