diff options
author | defanor <defanor@uberspace.net> | 2017-12-30 08:10:35 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-12-30 08:10:35 +0300 |
commit | 45efb7970d776cde25a8ba2848c6bed539fc1810 (patch) | |
tree | 5172b9d14e1452e6d910a12ba10f34dd817e7170 /pancake.el | |
parent | 1207108741f466b105b12ce8277c116121950b14 (diff) |
Show target URIs on pancake-{next, previous}-button
Diffstat (limited to 'pancake.el')
-rw-r--r-- | pancake.el | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -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." |