diff options
Diffstat (limited to 'pancake.el')
-rw-r--r-- | pancake.el | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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." |