Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

; * test/lisp/net/shr-tests.el (shr-test/zoom-image): Fix <img> (bug#79041).

Browse source
This commit is contained in:
Eli Zaretskii 2025-07-17 19:34:50 +03:00
parent ae560ae11c
commit 462a541db9
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/lisp/net/shr-tests.el
View file

@ -145,8 +145,8 @@ settings, then once more for each (OPTION . VALUE) pair.")
(dolist (alt '(nil "" "nothing to see here"))
(with-temp-buffer
(ert-info ((format "image with alt=%S" alt))
(let ((attrs (if alt (format " alt=\"%s\"" alt) "")))
(insert (format "<img src=\"%s\" %s" image-url attrs)))
(let ((attrs (if alt (format " alt=\"%s\">" alt) ">")))
(insert (format "<img src=\"%s\"%s" image-url attrs)))
(cl-letf* (;; Pretend we're a graphical display.
((symbol-function 'display-graphic-p) #'always)
((symbol-function 'url-queue-retrieve)