summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--pancake.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/pancake.el b/pancake.el
index e759cb1..199121c 100644
--- a/pancake.el
+++ b/pancake.el
@@ -212,7 +212,10 @@ interactively."
(defun pancake-button-action (button)
"An action to be invoked on button activation."
- (funcall 'browse-url (button-get button 'pancake-absolute-uri)))
+ (let ((pancake-uri (button-get button 'pancake-link)))
+ (if (and pancake-uri (string-prefix-p "#" pancake-uri))
+ (pancake pancake-uri)
+ (funcall 'browse-url (button-get button 'pancake-absolute-uri)))))
(defun pancake-print-elem (element)
"Translate ELEMENT into a string."