From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Fri, 11 Nov 2016 00:27:48 +0000 (+0000)
Subject: * lisp/net/shr.el (shr--preferred-image): Ignore whitespace (bug#24893).
X-Git-Tag: emacs-26.0.90~1347
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dd913625652d8e94c74a00095262c7105e728a5e;p=emacs.git

* lisp/net/shr.el (shr--preferred-image): Ignore whitespace (bug#24893).
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 73886bf1b4e..ff1fab8cade 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1529,7 +1529,7 @@ The preference is a float determined from `shr-prefer-media-type'."
       (setq srcset
             (sort (mapcar
                    (lambda (elem)
-                     (let ((spec (split-string elem " ")))
+                     (let ((spec (split-string elem "[\t\n ]+")))
                        (cond
                         ((= (length spec) 1)
                          ;; Make sure it's well formed.
@@ -1543,7 +1543,9 @@ The preference is a float determined from `shr-prefer-media-type'."
                         (t
                          (list (car spec)
                                (string-to-number (cadr spec)))))))
-                   (split-string srcset ", "))
+                   (split-string (replace-regexp-in-string
+				  "\\`[\t\n ]+\\|[\t\n ]+\\'" "" srcset)
+				 "[\t\n ]*,[\t\n ]*"))
                   (lambda (e1 e2)
                     (> (cadr e1) (cadr e2)))))
       ;; Choose the smallest picture that's bigger than the current