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).

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index c600c7453235fc1d33a9a2eca5a07a3de7600e1d..611f0a90f69b0f22e3680c85e64f31ffb54bc1ce 100644 (file)
--- 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'."
              (and shr-blocked-images
                   (string-match shr-blocked-images url)))
          (setq shr-start (point))
-         (if (> (string-width alt) 8)
-             (shr-insert (truncate-string-to-width alt 8))
-           (shr-insert alt)))
+          (shr-insert alt))
         ((and (not shr-ignore-cache)
               (url-is-cached (shr-encode-url url)))
          (funcall shr-put-image-function (shr-get-image-data url) alt))