procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

shr.el (shr-tag-a): Use url-link as widget type.

Browse source
This commit is contained in:
Julien Danjou 2010-10-14 13:55:30 +00:00 • committed by Katsumi Yamaoka
parent 0d2d1bdcf3
commit 31e96eecc0
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/ChangeLog
View file

@ -5,6 +5,8 @@
2010-10-14 Julien Danjou <julien@danjou.info>
* shr.el (shr-tag-a): Use url-link as widget type.
* gnus-group.el (gnus-group-insert-group-line): Fix group argument to
`gnus-group-get-icon'.

7
lisp/gnus/shr.el
View file

@ -379,9 +379,10 @@ Return a string with image data."
shr-start)
(shr-generic cont)
(widget-convert-button
'link (or shr-start start) (point)
:help-echo url)
(put-text-property (or shr-start start) (point) 'keymap shr-map)
'url-link (or shr-start start) (point)
:help-echo url
:keymap shr-map
url)
(put-text-property (or shr-start start) (point) 'shr-url url)))
(defun shr-encode-url (url)