mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

shr.el (shr-tag-img): Don't get images displayed in tables.

Browse Source
This commit is contained in:
Katsumi Yamaoka 2011-10-06 09:25:26 +00:00
parent 969aa7346f
commit a959fc400d
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View File

@ -1,3 +1,7 @@
2011-10-06 Katsumi Yamaoka <yamaoka@jpl.org>
* shr.el (shr-tag-img): Don't get images displayed in tables.
2011-10-03 Glenn Morris <rgm@gnu.org>
* gnus-group.el (gnus-bug-group-download-format-alist): Once again get

13
lisp/gnus/shr.el
View File

@ -914,12 +914,13 @@ ones, in case fg and bg are nil."
(shr-encode-url url) 'shr-image-fetched
(list (current-buffer) start (set-marker (make-marker) (1- (point))))
t)))
(put-text-property start (point) 'keymap shr-map)
(put-text-property start (point) 'shr-alt alt)
(put-text-property start (point) 'image-url url)
(put-text-property start (point) 'image-displayer
(shr-image-displayer shr-content-function))
(put-text-property start (point) 'help-echo alt)
(when (zerop shr-table-depth) ;; We are not in a table.
(put-text-property start (point) 'keymap shr-map)
(put-text-property start (point) 'shr-alt alt)
(put-text-property start (point) 'image-url url)
(put-text-property start (point) 'image-displayer
(shr-image-displayer shr-content-function))
(put-text-property start (point) 'help-echo alt))
(setq shr-state 'image)))))
(defun shr-tag-pre (cont)