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.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
Download patch file Download diff file Expand all files Collapse all files

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)