mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(shr-urlify): Decode URLs before using them as titles

Browse source 
Fixes: debbugs:19555

* lisp/net/shr.el (shr-urlify): Decode URLs before using them as titles.
This commit is contained in:
Ivan Shmakov 2015-01-10 17:48:38 +01:00 • committed by Lars Magne Ingebrigtsen
parent afaa7c183b
commit fd6b7e5807
2 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/net/shr.el
View file

@ -894,7 +894,13 @@ START, and END. Note that START and END should be markers."
(add-text-properties
start (point)
(list 'shr-url url
'help-echo (if title (shr-fold-text (format "%s (%s)" url title)) url)
'help-echo (let ((iri (or (with-demoted-errors
"shr-urlify: %s"
(decode-coding-string
(url-unhex-string url)
'utf-8 t))
url)))
(if title (format "%s (%s)" iri title) iri))
'follow-link t
'mouse-face 'highlight
'keymap shr-map)))