diff options
| author | Lars Ingebrigtsen | 2016-02-04 15:35:20 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-04 15:35:20 +1100 |
| commit | a43a1dcc3d4a2e1eeecac43017a21779fb1557b3 (patch) | |
| tree | f6412c9c815c1ca6c566cc657ba63422cdf3be95 | |
| parent | 56ed4e188603180aa8c9f1272da0954a80875c5c (diff) | |
| download | emacs-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.el | 4 |
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)) |