diff options
| author | Adam Sjøgren <asjo@koldfront.dk> | 2013-05-19 22:49:17 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2013-05-19 22:49:17 +0000 |
| commit | 308c9d248ad5b71eb7215c50b9c7e08a55638355 (patch) | |
| tree | fe393927c518cdcc98672ce3d18368fb95c1aaef | |
| parent | 172f73b1e1f7d0f6f4d34d09c158f822a7622a47 (diff) | |
| download | emacs-308c9d248ad5b71eb7215c50b9c7e08a55638355.tar.gz | |
lisp/gnus/shr.el (shr-tag-span): New function
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/shr.el | 8 |
2 files changed, 12 insertions, 0 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 7f6b171f344..8d380695ec1 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2013-05-19 Adam Sjøgren <asjo@koldfront.dk> + + * shr.el (shr-tag-span): New function. + 2013-05-18 Glenn Morris <rgm@gnu.org> * message.el (message-mode): Use message-mode-abbrev-table, diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 5c1b99e7707..2d2272d6c11 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -1088,6 +1088,14 @@ ones, in case fg and bg are nil." (shr-indent)) (shr-generic cont)) +(defun shr-tag-span (cont) + (let ((title (cdr (assq :title cont)))) + (shr-generic cont) + (when title + (when shr-start + (let ((overlay (shr-make-overlay shr-start (point)))) + (overlay-put overlay 'help-echo title)))))) + (defun shr-tag-h1 (cont) (shr-heading cont 'bold 'underline)) |