summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordefanor <defanor@uberspace.net>2017-12-30 08:10:35 +0300
committerdefanor <defanor@uberspace.net>2017-12-30 08:10:35 +0300
commit45efb7970d776cde25a8ba2848c6bed539fc1810 (patch)
tree5172b9d14e1452e6d910a12ba10f34dd817e7170
parent1207108741f466b105b12ce8277c116121950b14 (diff)
downloadpancake-45efb7970d776cde25a8ba2848c6bed539fc1810.zip
pancake-45efb7970d776cde25a8ba2848c6bed539fc1810.tar.gz
pancake-45efb7970d776cde25a8ba2848c6bed539fc1810.tar.bz2
Show target URIs on pancake-{next, previous}-button
-rw-r--r--pancake.el8
1 files 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."