From 5d53b9a572de78968d09b29da77d1bcf5c8f7236 Mon Sep 17 00:00:00 2001 From: defanor Date: Tue, 26 Dec 2017 06:17:21 +0300 Subject: Use relative #fragment links in Emacs Don't reload a document on those. --- pancake.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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." -- cgit v1.2.3