aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2016-02-04 15:35:20 +1100
committerLars Ingebrigtsen2016-02-04 15:35:20 +1100
commita43a1dcc3d4a2e1eeecac43017a21779fb1557b3 (patch)
treef6412c9c815c1ca6c566cc657ba63422cdf3be95
parent56ed4e188603180aa8c9f1272da0954a80875c5c (diff)
downloademacs-a43a1dcc3d4a2e1eeecac43017a21779fb1557b3.tar.gz
emacs-a43a1dcc3d4a2e1eeecac43017a21779fb1557b3.zip
Insert complete alt texts when images are disabled
* lisp/net/shr.el (shr-tag-img): When images are disabled, insert the complete alt/title string (bug#22293).
-rw-r--r--lisp/net/shr.el4
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index c600c745323..611f0a90f69 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1409,9 +1409,7 @@ The preference is a float determined from `shr-prefer-media-type'."
1409 (and shr-blocked-images 1409 (and shr-blocked-images
1410 (string-match shr-blocked-images url))) 1410 (string-match shr-blocked-images url)))
1411 (setq shr-start (point)) 1411 (setq shr-start (point))
1412 (if (> (string-width alt) 8) 1412 (shr-insert alt))
1413 (shr-insert (truncate-string-to-width alt 8))
1414 (shr-insert alt)))
1415 ((and (not shr-ignore-cache) 1413 ((and (not shr-ignore-cache)
1416 (url-is-cached (shr-encode-url url))) 1414 (url-is-cached (shr-encode-url url)))
1417 (funcall shr-put-image-function (shr-get-image-data url) alt)) 1415 (funcall shr-put-image-function (shr-get-image-data url) alt))