From bb7537f18af348e27169fdb4675279a6ac936f91 Mon Sep 17 00:00:00 2001 From: yangyingchao Date: Fri, 2 Jul 2021 11:46:12 +0800 Subject: [PATCH] Add support for "data-src" attribute in tag. * lisp/net/shr.el (shr--preferred-image) (shr-tag-img): support "data-src" attribute --- lisp/net/shr.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 873f0457e3..cc2007b2a4 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -1661,7 +1661,8 @@ shr-tag-img (when (or url (and dom (or (> (length (dom-attr dom 'src)) 0) - (> (length (dom-attr dom 'srcset)) 0)))) + (> (length (dom-attr dom 'srcset)) 0) + (> (length (dom-attr dom 'data-src)) 0)))) (when (> (current-column) 0) (insert "\n")) (let ((alt (dom-attr dom 'alt)) @@ -1793,7 +1794,7 @@ shr--preferred-image (> (cadr (car srcset)) frame-width)) (setq candidate (caar srcset)) (pop srcset))) - (or candidate (dom-attr dom 'src)))) + (or candidate (dom-attr dom 'src) (dom-attr dom 'data-src)))) (defun shr-string-number (string) (if (null string) -- 2.31.1