From d50fceab31ba06b880e20d1ed47b91432438fbb4 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 30 Jul 2013 16:25:11 +0200 Subject: [PATCH] * net/shr.el (shr-urlify): Put `follow-link' on URLs. Fixes: debbugs:14815 --- lisp/ChangeLog | 4 ++++ lisp/net/shr.el | 1 + 2 files changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4f63206212c..8cc9a464067 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-07-30 Lars Magne Ingebrigtsen + + * net/shr.el (shr-urlify): Put `follow-link' on URLs (bug#14815). + 2013-07-30 Xue Fuqiao * vc/vc-svn.el (vc-svn-ignore): Remove `interactive'. Use `*vc*' diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 6ddf8d2af90..d0b3759782b 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -832,6 +832,7 @@ START, and END. Note that START and END should be markers." start (point) (list 'shr-url url 'help-echo (if title (format "%s (%s)" url title) url) + 'follow-link t 'keymap shr-map))) (defun shr-encode-url (url) -- 2.39.2